Parser Tests.

Array
(
    [fun] => mws
    [args] =>   foo
    [expected] => K Object
        (
            [v:private] => 
            [k:private] => foo
        )

    [actual] => K Object
        (
            [v:private] => 
            [k:private] => foo
        )

    [status] => PASSED
)
Array
(
    [fun] => msy
    [args] => foo
    [expected] => K Object
        (
            [v:private] => foo
            [k:private] => 
        )

    [actual] => K Object
        (
            [v:private] => foo
            [k:private] => 
        )

    [status] => PASSED
)
Array
(
    [fun] => msy
    [args] => foo bar
    [expected] => K Object
        (
            [v:private] => foo
            [k:private] =>  bar
        )

    [actual] => K Object
        (
            [v:private] => foo
            [k:private] =>  bar
        )

    [status] => PASSED
)
Array
(
    [fun] => msy
    [args] => foo
    [expected] => K Object
        (
            [v:private] => foo
            [k:private] => 
        )

    [actual] => K Object
        (
            [v:private] => foo
            [k:private] => 
        )

    [status] => PASSED
)
Array
(
    [fun] => msy
    [args] => foo bar
    [expected] => K Object
        (
            [v:private] => foo
            [k:private] =>  bar
        )

    [actual] => K Object
        (
            [v:private] => foo
            [k:private] =>  bar
        )

    [status] => PASSED
)
Array
(
    [fun] => msy
    [args] => foo)
    [expected] => K Object
        (
            [v:private] => foo
            [k:private] => )
        )

    [actual] => K Object
        (
            [v:private] => foo
            [k:private] => )
        )

    [status] => PASSED
)
Array
(
    [fun] => msy
    [args] => foo()
    [expected] => K Object
        (
            [v:private] => foo
            [k:private] => ()
        )

    [actual] => K Object
        (
            [v:private] => foo
            [k:private] => ()
        )

    [status] => PASSED
)
Array
(
    [fun] => sexp
    [args] => foo
    [expected] => foo
    [actual] => foo
    [status] => PASSED
)
Array
(
    [fun] => sexp
    [args] => @
    [expected] => @
    [actual] => @
    [status] => PASSED
)
Array
(
    [fun] => sexp
    [args] => ...
    [expected] => ...
    [actual] => ...
    [status] => PASSED
)
Array
(
    [fun] => sexp
    [args] => |||
    [expected] => |||
    [actual] => |||
    [status] => PASSED
)
Array
(
    [fun] => sexp
    [args] => ()
    [expected] => nil
    [actual] => nil
    [status] => PASSED
)
Array
(
    [fun] => sexp
    [args] => (foo)
    [expected] => Array
        (
            [0] => foo
        )

    [actual] => Array
        (
            [0] => foo
        )

    [status] => PASSED
)
Array
(
    [fun] => sexp
    [args] => (foo)
    [expected] => Array
        (
            [0] => fuu
        )

    [actual] => Array
        (
            [0] => foo
        )

    [status] => FAILED
)
Array
(
    [fun] => sexp
    [args] => (foo bar)
    [expected] => Array
        (
            [0] => foo
            [1] => bar
        )

    [actual] => Array
        (
            [0] => foo
            [1] => bar
        )

    [status] => PASSED
)
Array
(
    [fun] => sexp
    [args] => (foo (duh) bar)
    [expected] => Array
        (
            [0] => foo
            [1] => Array
                (
                    [0] => duh
                )

            [2] => bar
        )

    [actual] => Array
        (
            [0] => foo
            [1] => Array
                (
                    [0] => duh
                )

            [2] => bar
        )

    [status] => PASSED
)
Array
(
    [fun] => sexp
    [args] => (foo () bar)
    [expected] => Array
        (
            [0] => foo
            [1] => nil
            [2] => bar
        )

    [actual] => Array
        (
            [0] => foo
            [1] => nil
            [2] => bar
        )

    [status] => PASSED
)
Array
(
    [fun] => sexp
    [args] => (foo . bar)
    [expected] => Array
        (
            [0] => foo
            [1] => bar
        )

    [actual] => Array
        (
            [0] => foo
            [1] => bar
        )

    [status] => PASSED
)
Array
(
    [fun] => sexp
    [args] => (foo. bar)
    [expected] => Array
        (
            [0] => foo.
            [1] => bar
        )

    [actual] => Array
        (
            [0] => foo.
            [1] => bar
        )

    [status] => PASSED
)
Array
(
    [fun] => sexp
    [args] => (foo .bar)
    [expected] => Array
        (
            [0] => foo
            [1] => .bar
        )

    [actual] => Array
        (
            [0] => foo
            [1] => .bar
        )

    [status] => PASSED
)
Array
(
    [fun] => sexp
    [args] => ((()))
    [expected] => Array
        (
            [0] => Array
                (
                    [0] => nil
                )

        )

    [actual] => Array
        (
            [0] => Array
                (
                    [0] => nil
                )

        )

    [status] => PASSED
)
Array
(
    [fun] => sexp
    [args] => (foo . ())
    [expected] => Array
        (
            [0] => foo
            [1] => nil
        )

    [actual] => Array
        (
            [0] => foo
            [1] => nil
        )

    [status] => PASSED
)
Array
(
    [fun] => sexp
    [args] => (foo (foo . ()))
    [expected] => Array
        (
            [0] => foo
            [1] => Array
                (
                    [0] => foo
                    [1] => nil
                )

        )

    [actual] => Array
        (
            [0] => foo
            [1] => Array
                (
                    [0] => foo
                    [1] => nil
                )

        )

    [status] => PASSED
)
Array
(
    [fun] => sexp
    [args] => (foo . (foo . ()))
    [expected] => Array
        (
            [0] => foo
            [1] => Array
                (
                    [0] => foo
                    [1] => nil
                )

        )

    [actual] => Array
        (
            [0] => foo
            [1] => Array
                (
                    [0] => foo
                    [1] => nil
                )

        )

    [status] => PASSED
)
Array
(
    [fun] => sexp
    [args] => (() . ())
    [expected] => Array
        (
            [0] => nil
            [1] => nil
        )

    [actual] => Array
        (
            [0] => nil
            [1] => nil
        )

    [status] => PASSED
)
Array
(
    [fun] => sexp
    [args] => (duh . (foo . bar))
    [expected] => Array
        (
            [0] => duh
            [1] => Array
                (
                    [0] => foo
                    [1] => bar
                )

        )

    [actual] => Array
        (
            [0] => duh
            [1] => Array
                (
                    [0] => foo
                    [1] => bar
                )

        )

    [status] => PASSED
)
Array
(
    [fun] => sexp
    [args] => (duh . (foo . ()))
    [expected] => Array
        (
            [0] => duh
            [1] => Array
                (
                    [0] => foo
                    [1] => nil
                )

        )

    [actual] => Array
        (
            [0] => duh
            [1] => Array
                (
                    [0] => foo
                    [1] => nil
                )

        )

    [status] => PASSED
)
Array
(
    [fun] => sexp
    [args] => (define (thunk) ())
    [expected] => Array
        (
            [0] => define
            [1] => Array
                (
                    [0] => thunk
                )

            [2] => nil
        )

    [actual] => Array
        (
            [0] => define
            [1] => Array
                (
                    [0] => thunk
                )

            [2] => nil
        )

    [status] => PASSED
)
Array
(
    [fun] => sexp
    [args] => (define id (x) x)
    [expected] => Array
        (
            [0] => define
            [1] => id
            [2] => Array
                (
                    [0] => x
                )

            [3] => x
        )

    [actual] => Array
        (
            [0] => define
            [1] => id
            [2] => Array
                (
                    [0] => x
                )

            [3] => x
        )

    [status] => PASSED
)
Array
(
    [fun] => sexp
    [args] => (define (fact n) (cond ((< n 2) 1) (t (* n (fact (1- n))))))
    [expected] => Array
        (
            [0] => define
            [1] => Array
                (
                    [0] => fact
                    [1] => n
                )

            [2] => Array
                (
                    [0] => cond
                    [1] => Array
                        (
                            [0] => Array
                                (
                                    [0] => <
                                    [1] => n
                                    [2] => 2
                                )

                            [1] => 1
                        )

                    [2] => Array
                        (
                            [0] => t
                            [1] => Array
                                (
                                    [0] => *
                                    [1] => n
                                    [2] => Array
                                        (
                                            [0] => fact
                                            [1] => Array
                                                (
                                                    [0] => 1-
                                                    [1] => n
                                                )

                                        )

                                )

                        )

                )

        )

    [actual] => Array
        (
            [0] => define
            [1] => Array
                (
                    [0] => fact
                    [1] => n
                )

            [2] => Array
                (
                    [0] => cond
                    [1] => Array
                        (
                            [0] => Array
                                (
                                    [0] => <
                                    [1] => n
                                    [2] => 2
                                )

                            [1] => 1
                        )

                    [2] => Array
                        (
                            [0] => t
                            [1] => Array
                                (
                                    [0] => *
                                    [1] => n
                                    [2] => Array
                                        (
                                            [0] => fact
                                            [1] => Array
                                                (
                                                    [0] => 1-
                                                    [1] => n
                                                )

                                        )

                                )

                        )

                )

        )

    [status] => PASSED
)

Parser Tests End.