Add test for extended characters in VBA module

Relating to issue #186
joyfullservice · Mar 3, 2021 · 87fca61 · 87fca61
1 parent f3a70e1
commit 87fca61
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 2 deletions.
diff --git a/Testing/Testing.accdb.src/forms/frmMain.bas b/Testing/Testing.accdb.src/forms/frmMain.bas
@@ -13,8 +13,8 @@ Begin Form
     Width =8520
     DatasheetFontHeight =11
     ItemSuffix =13
-    Right =25575
-    Bottom =12585
+    Right =15975
+    Bottom =11745
     DatasheetGridlinesColor =14806254
     RecSrcDt = Begin
         0x18691eff0b76e540
@@ -469,6 +469,8 @@ Public Sub cmdRunTests_Click()
     ' Modules
     strTest = CurrentProject.AllModules("basUtility").Name
     ShowResult "Standard Module exists", (strTest = "basUtility")
+    strTest = GetVBProjectForCurrentDB.VBComponents("basExtendedChars").CodeModule.Lines(6, 1)
+    ShowResult "Extended ASCII text in VBA", (Mid$(strTest, 10, 1) = Chr(151))
 
     strTest = CurrentProject.AllModules("clsPerson").Name
     ShowResult "Class Module exists", (strTest = "clsPerson")

diff --git a/Testing/Testing.accdb.src/modules/basExtendedChars.bas b/Testing/Testing.accdb.src/modules/basExtendedChars.bas
@@ -0,0 +1,6 @@
+Option Compare Database
+Option Explicit
+
+' The following line uses extended ASCII characters
+' and should show up as a solid line.
+'—————————————————————————————————————————————————————————