1
1
mirror of https://github.com/github/semantic.git synced 2024-12-23 23:11:50 +03:00
semantic/test/Language/Ruby/Syntax/Spec.hs
2017-04-06 14:13:09 -04:00

14 lines
398 B
Haskell

module Language.Ruby.Syntax.Spec where
import Data.Functor.Union
import qualified Data.Syntax.Comment as Comment
import Language.Ruby.Syntax
import Prologue
import Test.Hspec
spec :: Spec
spec = do
describe "stepAssignment" $ do
it "matches nodes" $ do
stepAssignment comment [Rose (Node Comment "hello") []] `shouldBe` Just ([], wrapU (Comment.Comment "hello") :: Program Syntax ())