Added more examples and changed print to assert

Author: Undalevein

squirrel/comma_operator.nut

@@ -1,6 +1,6 @@
 local a, b, x
-x = a = 5, b = 9, a * a + b * b
+x = (a = 5, b = 9, a * a + b * b)
 
-print(a + "\n")
-print(b + "\n")
-print(x + "\n")
+assert(a == 5)
+assert(b == 9)
+assert(x == 106)

squirrel/floating_point_mystery.nut

@@ -1,16 +1,16 @@
-print((0.1 + 0.2 == 0.3) + "\n")    // Outputs true
-print((0.01 + 0.02 == 0.03) + "\n")    // Outputs true
-print((0.001 + 0.002 == 0.003) + "\n")    // Outputs true
-print((0.0001 + 0.0002 == 0.0003) + "\n")    // Outputs false
-print((0.00001 + 0.00002 == 0.00003) + "\n")    // Outputs true
-print((0.000001 + 0.000002 == 0.000003) + "\n")    // Outputs true
-print((0.0000001 + 0.0000002 == 0.0000003) + "\n")    // Outputs true
-print((0.00000001 + 0.00000002 == 0.00000003) + "\n")    // Outputs true
-print((0.000000001 + 0.000000002 == 0.000000003) + "\n")    // Outputs false
-print((0.0000000001 + 0.0000000002 == 0.0000000003) + "\n")    // Outputs true
-print((0.00000000001 + 0.00000000002 == 0.00000000003) + "\n")    // Outputs true
-print((0.000000000001 + 0.000000000002 == 0.000000000003) + "\n")    // Outputs true
-print((0.0000000000001 + 0.0000000000002 == 0.0000000000003) + "\n")    // Outputs true
-print((0.00000000000001 + 0.00000000000002 == 0.00000000000003) + "\n")    // Outputs true
-print((0.000000000000001 + 0.000000000000002 == 0.000000000000003) + "\n")    // Outputs false
-print((0.0000000000000001 + 0.0000000000000002 == 0.0000000000000003) + "\n")    // Outputs true
+assert(0.1 + 0.2 == 0.3)    // Outputs true
+assert(0.01 + 0.02 == 0.03)    // Outputs true
+assert(0.001 + 0.002 == 0.003)    // Outputs true
+assert(0.0001 + 0.0002 != 0.0003)    // Outputs false
+assert(0.00001 + 0.00002 == 0.00003)    // Outputs true
+assert(0.000001 + 0.000002 == 0.000003)    // Outputs true
+assert(0.0000001 + 0.0000002 == 0.0000003)    // Outputs true
+assert(0.00000001 + 0.00000002 == 0.00000003)    // Outputs true
+assert(0.000000001 + 0.000000002 != 0.000000003)    // Outputs false
+assert(0.0000000001 + 0.0000000002 == 0.0000000003)    // Outputs true
+assert(0.00000000001 + 0.00000000002 == 0.00000000003)    // Outputs true
+assert(0.000000000001 + 0.000000000002 == 0.000000000003)    // Outputs true
+assert(0.0000000000001 + 0.0000000000002 == 0.0000000000003)    // Outputs true
+assert(0.00000000000001 + 0.00000000000002 == 0.00000000000003)    // Outputs true
+assert(0.000000000000001 + 0.000000000000002 != 0.000000000000003)    // Outputs false
+assert(0.0000000000000001 + 0.0000000000000002 == 0.0000000000000003)    // Outputs true

squirrel/sum_of_even_squares.nut

@@ -1,16 +1,11 @@
-function assert(success, line)
-{
-    if (!success) throw "Assertion test failed at line " + line
-}
-
 function sumOfEvenSquares(a)
 {
     return a.filter(@(_, a) a % 2 == 0).map(@(a) a * a).reduce(@(a, b) a + b) || 0
 }
 
-assert(sumOfEvenSquares([]) == 0, __LINE__)
-assert(sumOfEvenSquares([1]) == 0, __LINE__)
-assert(sumOfEvenSquares([1,2]) == 4, __LINE__)
-assert(sumOfEvenSquares([1,2,3]) == 4, __LINE__)
-assert(sumOfEvenSquares([1,2,3,4]) == 20, __LINE__)
-assert(sumOfEvenSquares([4,6,7,2]) == 56, __LINE__)
+assert(sumOfEvenSquares([]) == 0)
+assert(sumOfEvenSquares([1]) == 0)
+assert(sumOfEvenSquares([1,2]) == 4)
+assert(sumOfEvenSquares([1,2,3]) == 4)
+assert(sumOfEvenSquares([1,2,3,4]) == 20)
+assert(sumOfEvenSquares([4,6,7,2]) == 56)

squirrel/table.nut

@@ -0,0 +1,18 @@
+local empty = {}
+local student =
+{
+    id = "1J93DZ"
+    age = 4
+    name = "Jason"
+}
+
+local shelf = {}
+shelf.book1 <- "C# Manual Book"
+shelf.book2 <- "Scala Manual Book"
+shelf.book3 <- "Go Manual Book"
+assert(shelf.book1 == "C# Manual Book")
+assert(shelf["book2"] == "Scala Manual Book")
+delete shelf.book3
+assert(!("book3" in shelf))
+assert(delete shelf.book1 == "C# Manual Book")
+

squirrel/test.ps1

@@ -30,6 +30,7 @@ Get-Content "$PSScriptRoot\..\test\wnba_input" |
     sq "$PSScriptRoot\top_ten_scorers.nut" | 
     Compare-Object (Get-Content "$PSScriptRoot\..\test\wnba_expected") |
     Assert-MatchTests &&
+sq "$PSScriptRoot\table.nut" &&
 sq "$PSScriptRoot\triple.nut" |
     Compare-Object (Get-Content "$PSScriptRoot\..\test\triple_expected") |
     Assert-MatchTests &&

squirrel/wordcount.nut

@@ -7,18 +7,13 @@ input = input.tolower()
 
 local regex = regexp("[a-z\']+")
 local counts = {}
-local index = 0
-for (;;)
+for (local index = 0, res = regex.search(input, index); res != null; index = res.end, res = regex.search(input, index))
 {
-    local res = regex.search(input, index)
-    if (res == null)
-        break
     local word = input.slice(res.begin, res.end)
     if (word in counts)
         counts[word]++
     else
         counts[word] <- 1
-    index = res.end
 }
 
 foreach (word in counts.keys().sort(@(a, b) a <=> b))