diff options
Diffstat (limited to 'fig-web/main')
| -rw-r--r-- | fig-web/main/Main.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/fig-web/main/Main.hs b/fig-web/main/Main.hs index b1cc006..a3c798a 100644 --- a/fig-web/main/Main.hs +++ b/fig-web/main/Main.hs @@ -60,6 +60,7 @@ main = do Secure o -> Secure.server o cfg (opts.busHost, opts.busPort) TestFFI -> do log "testing FFI" - res <- FFI.checkAnswer "(lambda (d) (define (loop) (loop)) (loop) (string-length d))" - "hello computer" + res <- FFI.checkAnswer "(lambda (d e) (equal? d e))" "hello computer" "hello computer" log $ "result: " <> tshow res + inpa <- FFI.genInputAnswer "(lambda (x) (cons x x))" "hello computer" + log $ "input/answer: " <> tshow inpa |