### ----------------------------------------------------
### -- Inline::Perl5
### -- Licenses: Artistic-2.0
### -- Authors: Stefan Seifert
### -- File: t/eval.t
### ----------------------------------------------------
#!/usr/bin/env perl6

use v6;
use Inline::Perl5;

say '1..3';

my $p5 = Inline::Perl5.new();

$p5.run('
    use 5.10.0;
    say "ok 1 - basic eval";
');

$p5.run('
    use 5.10.0;
    use Fcntl;
    say "ok 2 - loading XS modules";
');

$p5.run('
    use 5.10.0;
    use utf8;
    say utf8::is_utf8("Pörl 5")
        ? "ok 3 - Inlined Perl 5 source code is UTF-8 encoded"
        : "not ok 3 - Inlined Perl 5 source code is UTF-8 encoded";
');

$p5.DESTROY;

# vim: ft=raku


