ability to run code and check output in tests
This commit is contained in:
47
tests/Oper.newt
Normal file
47
tests/Oper.newt
Normal file
@@ -0,0 +1,47 @@
|
||||
module Oper
|
||||
|
||||
-- These are hard-coded at the moment
|
||||
-- For now they must be of the form _op_, we'll circle back
|
||||
-- with a different parser, but that works today.
|
||||
|
||||
-- this will be parsed as a top level decl, collected in TopContext, and
|
||||
-- injected into the Parser. It'll need to be passed around or available
|
||||
-- for read in the monad.
|
||||
|
||||
-- long term, I might want TopContext in the parser, and parse a top-level
|
||||
-- declaration at a time (for incremental updates), but much longer term.
|
||||
|
||||
infixl 8 _+_ _-_
|
||||
infixl 9 _*_ _/_
|
||||
|
||||
|
||||
|
||||
ptype JVoid
|
||||
|
||||
-- If we had a different quote here, we could tell vscode it's javascript.
|
||||
-- or actually just switch modes inside pfunc
|
||||
pfunc log : String -> JVoid := `(x) => console.log(x)`
|
||||
pfunc plus : Int -> Int -> Int := `(x,y) => x + y`
|
||||
pfunc _*_ : Int -> Int -> Int := `(x,y) => x * y`
|
||||
|
||||
-- We now have to clean JS identifiers
|
||||
_+_ : Int -> Int -> Int
|
||||
_+_ x y = plus x y
|
||||
|
||||
test : Int -> Int
|
||||
test x = 42 + x * 3 + 2
|
||||
|
||||
infixr 0 _,_
|
||||
data Pair : U -> U -> U where
|
||||
_,_ : {A B : U} -> A -> B -> Pair A B
|
||||
|
||||
blah : Int -> Int -> Int -> Pair Int (Pair Int Int)
|
||||
blah x y z = (x , y, z)
|
||||
|
||||
curryPlus : Pair Int Int -> Int
|
||||
curryPlus (a, b) = a + b
|
||||
|
||||
-- case is different path, so separate test
|
||||
caseCurry : Pair Int Int -> Int
|
||||
caseCurry x = case x of
|
||||
(a, b) => a + b
|
||||
Reference in New Issue
Block a user