suzanne.soy/phc-graph
1
0
Fork 0
Code Issues 24 Pull Requests Actions Packages Projects Releases Wiki Activity

Added tests for more complex to-replace types.

Browse Source
This commit is contained in:
Georges Dupéron 2016-10-03 03:34:04 +02:00
parent 95c156717c
commit 922d50d02f
1 changed files with 31 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
test/test-traversal-1.rkt
View File

@ -13,6 +13,8 @@
(define-fold f₆ t₆ (List Null (Pairof Null Null) Null) String)
(define-fold f₇ t₇ (Listof String) String)
(define-fold f₈ t₈ (List String Foo (Listof String)) String)
(define-fold f₉ t₉ (List (Listof String) Foo (Listof String)) (Listof String))
(define-fold f₁₀ t₁₀ (List String Foo (Listof String)) (Listof String))
(define (string->symbol+acc [x : String] [acc : Integer])
(values (string->symbol x) (add1 acc)))
@ -61,4 +63,32 @@
0)
: (Values (List Symbol (Listof String) (Listof Symbol))
Integer)
'(abc ("def" "ghi") (jkl mno)) 3)
'(abc ("def" "ghi") (jkl mno)) 3)
(check-equal?-values: ((f₉ (make-predicate (Listof String))
(λ ([l : (Listof String)] [acc : Integer])
(values (map string->symbol l)
(add1 acc))))
'(("a" "b" "c")
("def" "ghi")
("jkl" "mno"))
0)
: (Values (List (Listof Symbol)
(Listof String)
(Listof Symbol))
Integer)
'((a b c) ("def" "ghi") (jkl mno)) 2)
(check-equal?-values: ((f₁₀ (make-predicate (Listof String))
(λ ([l : (Listof String)] [acc : Integer])
(values (map string->symbol l)
(add1 acc))))
'("abc"
("def" "ghi")
("jkl" "mno"))
0)
: (Values (List String
(Listof String)
(Listof Symbol))
Integer)
'("abc" ("def" "ghi") (jkl mno)) 1)