### ----------------------------------------------------
### -- Inline::Scheme::Gambit
### -- Licenses: Artistic-2.0
### -- Authors: Zhenyi Zhou
### -- File: t/raku_to_gambit.t
### ----------------------------------------------------
#!/usr/bin/env raku

use v6;
use Test;
use Inline::Scheme::Gambit;

my $gambit = Inline::Scheme::Gambit.new();

$gambit.run(q{(define (identity x) x)});

for (   0, 5, 1/3, 1.0, 5.5e0, 1+2i,
    ) -> $obj {
    cmp-ok $gambit.call('identity', $obj), '==', $obj, "Can round-trip " ~ $obj.^name;
}
for (   True, False, 
        "gambit-c",
        [1, 2, [3, "hello"], "world"],
        { 1 => "foo", "bar" => "baz" }
    ) -> $obj {
    is-deeply $gambit.call('identity', $obj), $obj, "Can round-trip " ~ $obj.^name;
}

done-testing;


