#!/usr/bin/pugs

use v6;
use Test;

=kwid

Tests some basic conditional operators
(==, !=, eq and ne)

=cut

plan 6;

my $x = '1';
my $y = 'a';

ok $x eq $x, "check that eq works";
ok $x == $x, "check that == works";
ok $x ne $y, "check string comparsion";

# Comparison using auto conversion from num->str and str->num.
ok $x == 1, "check conversion from number to string";
ok 1 == $x, "check string conversion to number";

ok 3 != 4, "check that != works";