-
Notifications
You must be signed in to change notification settings - Fork 16
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Update Linting and buggy files (#48)
Added linting Added missing files fixed typos
- Loading branch information
Showing
16 changed files
with
603 additions
and
574 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,10 @@ | ||
# Set the default behavior, in case people don't have core.autocrlf set. | ||
* text=auto | ||
|
||
# Declare files that will always have CRLF line endings on checkout. | ||
*.cls text eol=crlf | ||
*.frm text eol=crlf | ||
*.bas text eol=crlf | ||
|
||
# Denote all files that are truly binary and should not be modified. | ||
*.frx binary |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file was deleted.
Oops, something went wrong.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
|
@@ -37,6 +37,6 @@ Public Function State() | |
End Function | ||
|
||
' Property: EOF | ||
Public Property EOF() | ||
Property Get EOF() | ||
|
||
End Property |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,34 +1,34 @@ | ||
VERSION 5.00 | ||
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Login | ||
Caption = "Please Log In" | ||
ClientHeight = 1920 | ||
ClientLeft = 120 | ||
ClientTop = 465 | ||
ClientWidth = 2295 | ||
OleObjectBlob = "Login.frx":0000 | ||
StartUpPosition = 1 'CenterOwner | ||
End | ||
Attribute VB_Name = "Login" | ||
Attribute VB_GlobalNameSpace = False | ||
Attribute VB_Creatable = False | ||
Attribute VB_PredeclaredId = True | ||
Attribute VB_Exposed = False | ||
Public Ready As Boolean | ||
|
||
Private Sub Form_Load() | ||
Me.Show | ||
Ready = False | ||
Call Wait | ||
'Label1.Visible = True | ||
End Sub | ||
|
||
Public Function Wait() | ||
Do While Ready = False | ||
DoEvents | ||
Loop | ||
End Function | ||
|
||
Private Sub LoginButton_Click() | ||
Ready = True | ||
Me.Hide | ||
End Sub | ||
VERSION 5.00 | ||
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Login | ||
Caption = "Please Log In" | ||
ClientHeight = 1920 | ||
ClientLeft = 120 | ||
ClientTop = 465 | ||
ClientWidth = 2295 | ||
OleObjectBlob = "Login.frx":0000 | ||
StartUpPosition = 1 'CenterOwner | ||
End | ||
Attribute VB_Name = "Login" | ||
Attribute VB_GlobalNameSpace = False | ||
Attribute VB_Creatable = False | ||
Attribute VB_PredeclaredId = True | ||
Attribute VB_Exposed = False | ||
Public Ready As Boolean | ||
|
||
Private Sub Form_Load() | ||
Me.Show | ||
Ready = False | ||
Call Wait | ||
'Label1.Visible = True | ||
End Sub | ||
|
||
Public Function Wait() | ||
Do While Ready = False | ||
DoEvents | ||
Loop | ||
End Function | ||
|
||
Private Sub LoginButton_Click() | ||
Ready = True | ||
Me.Hide | ||
End Sub |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,75 +1,75 @@ | ||
VERSION 1.0 CLASS | ||
BEGIN | ||
MultiUse = -1 'True | ||
END | ||
Attribute VB_Name = "SQLlibDatabaseTests" | ||
Attribute VB_GlobalNameSpace = False | ||
Attribute VB_Creatable = False | ||
Attribute VB_PredeclaredId = False | ||
Attribute VB_Exposed = False | ||
Implements iTestCase | ||
|
||
Dim MyDatabase As SQLDatabase | ||
Dim MyRecordset As New SQLTestRecordset | ||
Dim MyConnection As New SQLTestConnection | ||
Dim SimpleInsert As SQLInsert | ||
Dim TestCase As iTestCase | ||
|
||
' Constructor: Class_Initialize | ||
' Initialize class members | ||
Private Sub Class_Initialize() | ||
Set TestCase = CreateTestCase() | ||
End Sub | ||
|
||
Sub iTestCase_Setup() | ||
Set MyDatabase = Create_SQLDatabase() | ||
|
||
With MyDatabase | ||
.DSN = "mydsn" | ||
.Password = "Pa$$word" | ||
.Username = "myusername" | ||
Set .Recordset = MyRecordset | ||
Set .Connection = MyConnection | ||
End With | ||
|
||
|
||
Set SimpleInsert = Create_SQLInsert | ||
With SimpleInsert | ||
.Table = "users" | ||
.Fields = Array("id") | ||
.Values = Array(1) | ||
End With | ||
End Sub | ||
|
||
Sub iTestCase_TearDown() | ||
|
||
End Sub | ||
|
||
Function mssqlTest() | ||
MyDatabase.DBType = "mssql" | ||
|
||
Actual = MyDatabase.InsertGetNewId(SimpleInsert) | ||
Expected = "SET NOCOUNT ON;INSERT INTO users (id) VALUES (1);SELECT SCOPE_IDENTITY() as somethingunique" | ||
mssqlTest = AssertEquals(Actual, Expected) | ||
End Function | ||
|
||
Function psqlTest() | ||
MyDatabase.DBType = "psql" | ||
|
||
Actual = MyDatabase.InsertGetNewId(SimpleInsert, "id") | ||
Expected = "INSERT INTO users (id) VALUES (1) RETURNING id" | ||
psqlTest = AssertEquals(Actual, Expected) | ||
|
||
End Function | ||
|
||
' Sub: iTestCase_RunTest | ||
' Run a specific test. | ||
Public Sub iTestCase_RunTest(Test As String, Optional clsObj = Nothing) | ||
TestCase.RunTest Test, Me | ||
End Sub | ||
|
||
' Sub: iTestCase_RunAllTests | ||
' Run all tests. | ||
Public Sub iTestCase_RunAllTests(Optional ByVal clsObj = Nothing) | ||
TestCase.RunAllTests Me | ||
End Sub | ||
VERSION 1.0 CLASS | ||
BEGIN | ||
MultiUse = -1 'True | ||
END | ||
Attribute VB_Name = "SQLlibDatabaseTests" | ||
Attribute VB_GlobalNameSpace = False | ||
Attribute VB_Creatable = False | ||
Attribute VB_PredeclaredId = False | ||
Attribute VB_Exposed = False | ||
Implements iTestCase | ||
|
||
Dim MyDatabase As SQLDatabase | ||
Dim MyRecordset As New SQLTestRecordset | ||
Dim MyConnection As New SQLTestConnection | ||
Dim SimpleInsert As SQLInsert | ||
Dim TestCase As iTestCase | ||
|
||
' Constructor: Class_Initialize | ||
' Initialize class members | ||
Private Sub Class_Initialize() | ||
Set TestCase = CreateTestCase() | ||
End Sub | ||
|
||
Sub iTestCase_Setup() | ||
Set MyDatabase = Create_SQLDatabase() | ||
|
||
With MyDatabase | ||
.DSN = "mydsn" | ||
.Password = "Pa$$word" | ||
.Username = "myusername" | ||
Set .Recordset = MyRecordset | ||
Set .Connection = MyConnection | ||
End With | ||
|
||
|
||
Set SimpleInsert = Create_SQLInsert | ||
With SimpleInsert | ||
.Table = "users" | ||
.Fields = Array("id") | ||
.Values = Array(1) | ||
End With | ||
End Sub | ||
|
||
Sub iTestCase_TearDown() | ||
|
||
End Sub | ||
|
||
Function mssqlTest() | ||
MyDatabase.DBType = "mssql" | ||
|
||
Actual = MyDatabase.InsertGetNewId(SimpleInsert) | ||
Expected = "SET NOCOUNT ON;INSERT INTO users (id) VALUES (1);SELECT SCOPE_IDENTITY() as somethingunique" | ||
mssqlTest = AssertEquals(Actual, Expected) | ||
End Function | ||
|
||
Function psqlTest() | ||
MyDatabase.DBType = "psql" | ||
|
||
Actual = MyDatabase.InsertGetNewId(SimpleInsert, "id") | ||
Expected = "INSERT INTO users (id) VALUES (1) RETURNING id" | ||
psqlTest = AssertEquals(Actual, Expected) | ||
|
||
End Function | ||
|
||
' Sub: iTestCase_RunTest | ||
' Run a specific test. | ||
Public Sub iTestCase_RunTest(Test As String, Optional clsObj = Nothing) | ||
TestCase.RunTest Test, Me | ||
End Sub | ||
|
||
' Sub: iTestCase_RunAllTests | ||
' Run all tests. | ||
Public Sub iTestCase_RunAllTests(Optional ByVal clsObj = Nothing) | ||
TestCase.RunAllTests Me | ||
End Sub |
Oops, something went wrong.