mirror of
https://github.com/github/semantic.git
synced 2024-12-23 23:11:50 +03:00
14 lines
398 B
Haskell
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 ())
|