"INSTANCE: sequence mixin-forget-test"
"GENERIC: mixin-forget-test-g ( x -- y )"
"M: mixin-forget-test mixin-forget-test-g ;"
- } unlines <string-reader> "mixin-forget-test"
+ } join-lines <string-reader> "mixin-forget-test"
parse-stream drop
] unit-test
"INSTANCE: hashtable mixin-forget-test"
"GENERIC: mixin-forget-test-g ( x -- y )"
"M: mixin-forget-test mixin-forget-test-g ;"
- } unlines <string-reader> "mixin-forget-test"
+ } join-lines <string-reader> "mixin-forget-test"
parse-stream drop
] unit-test