Bruce/nomsu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Better/more realistic example code in the tests.

Browse Source
This commit is contained in:
Bruce Hill 2019-01-15 18:32:11 -08:00
parent 4e712fd8d3
commit 25e1ccc025
1 changed files with 32 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
lib/things.nom
View File

@ -4,59 +4,41 @@
test: test:
an (Empty) is a thing an (Empty) is a thing
a (Dog) is a thing: a (Buffer) is a thing:
$its.is_a_buffer = (yes)
($its, set up) means: ($its, set up) means:
$its.barks or= 0 $its.bits or= []
($it, as text) means
[($its, bark), ($its, woof)] all mean: $it.bits, joined
$barks = [: for $ in 1 to $its.barks: add "Bark!"] [($its, add $bit), ($its, append $bit)] all mean:
return ($barks, joined with " ") $its.bits, add $bit
($its, get pissed off) means: $its.barks += 1 assume (Buffer).is_a_buffer
(Dog).genus = "Canus" $b = (a Buffer)
$d = (a Dog with {.barks = 2}) assume (type of $b) == "Buffer"
assume "\$d" == "Dog {barks: 2}" assume $b.is_a_buffer
assume (type of $d) == "Dog" assume "\$b" == ""
assume ($d is a "Dog") assume ($b, as text) == ""
assume $d.barks == 2 $b = (a Buffer with {.bits = ["x"]})
assume (($d, bark) == "Bark! Bark!") $b,
assume (($d, woof) == "Bark! Bark!") add "y"
$d, get pissed off append "z"
assume ($d.barks == 3) assume "\$b" == "xyz"
assume (($d, bark) == "Bark! Bark! Bark!") assume $b == (a Buffer with {.bits = ["x", "y", "z"]})
assume ($d.genus == "Canus") assume $b != (a Buffer with {.bits = []})
assume ("\($d.class)" == "Dog")
assume ($d.genus == "Canus")
assume ($d.barks == 3)
$d2 = (a Dog)
unless ($d2.barks == 0):
fail "Default initializer failed"
with [$d = (a Dog with {.barks = 1})]: a (Comma Buffer) is a (Buffer):
assume (($d, bark) == "Bark!") ($it, as text) means ($it.bits, joined with ",")
($its, number of commas) means ((#$its.bits) - 1)
a (Corgi) is a (Dog):
($it, as text) means "Dogloaf \{: for $k = $v in $it: add $k = $v}"
($its, sploot) means "sploooot"
[($its, bark), ($its, woof)] all mean:
$barks = [: for $ in 1 to $its.barks: add "Yip!"]
return ($barks, joined with " ")
$corg = (a Corgi)
assume ($corg.barks == 0)
assume "\$corg" == "Dogloaf {barks: 0}"
with [$d = (a Corgi with {.barks = 1})]:
unless (($d, sploot) == "sploooot"):
fail "subclass method failed"
unless (($d, bark) == "Yip!"):
fail "inheritance failed"
assume (($d, woof) == "Yip!")
with [$d = (a Dog with {.barks = 2})]:
assume (($d, bark) == "Bark! Bark!")
$csv = (a Comma Buffer)
assume $csv.is_a_buffer
assume "\$csv" == ""
$csv, add "x"
$csv, add "y"
assume "\$csv" == "x,y"
assume ($csv, number of commas) == 1
a (Vec) is a thing with {.x, .y}: a (Vec) is a thing with {.x, .y}:
($its, + $other) means (Vec {.x = ($its.x + $other.x), .y = ($its.y + $other.y)}) ($its, + $other) means (Vec {.x = ($its.x + $other.x), .y = ($its.y + $other.y)})