#!/usr/bin/perl use strict; use lib qw(t . lib ../lib ../../lib ../../../lib ../../../../lib ); use Parrot::Test tests => 3; language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'dictionary Creation'); dict1 = { 'a':1, 'b':2, 'c':3} print dict1['a'] print dict1['b'] print dict1['c'] CODE 1 2 3 OUTPUT language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg'); CODE OUTPUT language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg'); CODE OUTPUT #language_output_is('pyparrot', <<'CODE', <<'OUTPUT', 'noarg'); #CODE #OUTPUT