hlex-1.0.0: test/Successes.hs

module Successes (successes) where

import Test.HUnit
import TestResources
import ExampleLang

successes :: Test
successes = TestList [ TestLabel "Parse Number" parseNum
                     , TestLabel "Assign Number" assignNumber
                     , TestLabel "Assign String" assignStr
                     ]

parseNum :: Test
parseNum = TestCase $ assertLexResult lexer "12 3.5" [Number 12, Number 3.5]

assignNumber :: Test
assignNumber = TestCase $ assertLexResult lexer "x = 1" [Ident "x", Assign, Number 1]

assignStr :: Test
assignStr = TestCase $ assertLexResult lexer "x = \"ab\"" [Ident "x", Assign, Str "ab"]