### ----------------------------------------------------
### -- CodeUnit
### -- Licenses: Artistic-2.0
### -- Authors: Elizabeth Mattijsen
### -- File: t/01-basic.rakutest
### ----------------------------------------------------
use Test;

use CodeUnit;

plan 4;

my $cu1 = CodeUnit.new;
is-deeply $cu1.eval('my $a = 42'), 42, 'Could we eval';
is-deeply $cu1.eval('$a'),         42, 'Did it survive';

is $cu1.eval('sub infix:<foo>($a,$b) { "foo" }').name, "infix:<foo>",
  'did we get an evalled infix op';
todo("needs Rakudo post commit 70872b987b680379");
is $cu1.eval('42 foo 666'), "foo", 'did the infix op execute';

# vim: expandtab shiftwidth=4


