#!/usr/bin/pugs

use v6;
use Test;

plan 10;

ok("a" eq "a");
ok(!("a" eq "ab"));

ok(!("a" ne "a"));
ok("a" ne "ab");

ok("\0" eq "\0");

my $foo;
ok($foo eq "");
ok(!($foo eq "f"));

my @foo;
ok(@foo[0] eq "");
ok(@foo[0] ne "f");

@foo = eval '';
ok(@foo[0] ne "f");