#!/usr/bin/perl use strict; use lib qw(t . lib ../lib ../../lib ../../../lib ../../../../lib ); use Parrot::Test tests => 7; language_output_is('pyparrot', <<'CODE', <<'OUTPUT', '=='); print 0 == 0 print 1 == 1 print 2 == 2 print 0 == 1 print 1 == 0 print 1 == 1 print 1 == 2 print 2 == 1 print -0 == -0 print -1 == -1 print -2 == -2 print -1 == -1 print 0 == 1 print -1 == 0 print -1 == -2 print -2 == -1 print -1 == 2 print -2 == 1 CODE OUTPUT language_output_is('pyparrot', <<'CODE', <<'OUTPUT', '<='); print 0 <= 0 print 1 <= 1 print 2 <= 2 print 0 <= 1 print 1 <= 0 print 1 <= 1 print 1 <= 2 print 2 <= 1 print -0 <= -0 print -1 <= -1 print -2 <= -2 print -1 <= -1 print 0 <= 1 print -1 <= 0 print -1 <= -2 print -2 <= -1 print -1 <= 2 print -2 <= 1 CODE OUTPUT language_output_is('pyparrot', <<'CODE', <<'OUTPUT', '>='); print 0 >= 0 print 1 >= 1 print 2 >= 2 print 0 >= 1 print 1 >= 0 print 1 >= 1 print 1 >= 2 print 2 >= 1 print -0 >= -0 print -1 >= -1 print -2 >= -2 print -1 >= -1 print 0 >= 1 print -1 >= 0 print -1 >= -2 print -2 >= -1 print -1 >= 2 print -2 >= 1 CODE OUTPUT language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg'); print 0 < 0 print 1 < 1 print 2 < 2 print 0 < 1 print 1 < 0 print 1 < 1 print 1 < 2 print 2 < 1 print -0 < -0 print -1 < -1 print -2 < -2 print -1 < -1 print 0 < 1 print -1 < 0 print -1 < -2 print -2 < -1 print -1 < 2 print -2 < 1 CODE OUTPUT language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg'); print 0 > 0 print 1 > 1 print 2 > 2 print 0 > 1 print 1 > 0 print 1 > 1 print 1 > 2 print 2 > 1 print -0 > -0 print -1 > -1 print -2 > -2 print -1 > -1 print 0 > 1 print -1 > 0 print -1 > -2 print -2 > -1 print -1 > 2 print -2 > 1 CODE OUTPUT language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg'); print 0 != 0 print 1 != 1 print 2 != 2 print 0 != 1 print 1 != 0 print 1 != 1 print 1 != 2 print 2 != 1 print -0 != -0 print -1 != -1 print -2 != -2 print -1 != -1 print 0 != 1 print -1 != 0 print -1 != -2 print -2 != -1 print -1 != 2 print -2 != 1 CODE OUTPUT language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg'); CODE OUTPUT