testing-demo.shk

(with) "lib/atl.shk"

(test/runSuite) [

  ("true" test/case) [     -- this test always succeeds
    (test/assertions) [
      [ TRUE ]
    ]
  ]

  ("parse a single symbol" test/case) [
    "hello" $parse
    uncons -> sym -> rem
  
    (test/assertions) [
      [ sym :hello unquote = ]
      [ rem length >< << 0 = ]
    ]
  ]

]