Added new tests.
authorMichael Welch <michaelgwelch@gmail.com>
Thu, 28 Dec 2006 23:03:26 +0000 (23:03 +0000)
committerMichael Welch <michaelgwelch@gmail.com>
Thu, 28 Dec 2006 23:03:26 +0000 (23:03 +0000)
TiBasicRuntime/TiBasicRuntime.csproj
mbasic/mbasic.csproj
samples/ForStatementTest.mbas
samples/relational.mbas [new file with mode: 0644]

index d3852b5..861ce65 100644 (file)
@@ -21,9 +21,9 @@
   </PropertyGroup>\r
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">\r
     <DebugType>pdbonly</DebugType>\r
-    <Optimize>false</Optimize>\r
-    <OutputPath>bin\Debug\</OutputPath>\r
-    <DefineConstants>DEBUG;TRACE</DefineConstants>\r
+    <Optimize>true</Optimize>\r
+    <OutputPath>bin\Release\</OutputPath>\r
+    <DefineConstants>TRACE</DefineConstants>\r
     <ErrorReport>prompt</ErrorReport>\r
     <WarningLevel>4</WarningLevel>\r
   </PropertyGroup>\r
index 1d67229..b99472a 100644 (file)
@@ -98,6 +98,9 @@
     <None Include="..\samples\read.mbas">\r
       <Link>samples\read.mbas</Link>\r
     </None>\r
+    <None Include="..\samples\relational.mbas">\r
+      <Link>samples\relational.mbas</Link>\r
+    </None>\r
     <None Include="..\samples\secretnum.mbas">\r
       <Link>samples\secretnum.mbas</Link>\r
     </None>\r
index f90a24e..7713752 100644 (file)
@@ -1,3 +1,7 @@
+99 x = 1
 100 For i = 1 to 10
+110 if Int((i+x)/2) <> (i+x)/2 then 130
 120 print i
-130 Next i
\ No newline at end of file
+130 Next i
+140 x = x - 1
+150 if x >= 0 then 100
diff --git a/samples/relational.mbas b/samples/relational.mbas
new file mode 100644 (file)
index 0000000..23f8ee1
--- /dev/null
@@ -0,0 +1,12 @@
+100 A = 3 = 3\r
+101 A2 = 3 = 4\r
+110 B = 3 <> 3\r
+120 B2 = 3 <> 4\r
+\r
+200 REM <, <=\r
+201 A1 = 3 < 3\r
+202 A2 = 3 < 4\r
+203 A3 = 3 <= 2\r
+204 A4 = 3 <= 3\r
+500 end\r
+\r