Select Code to Download

# tgol.t - Simple blinker test of Conway Game of Life Organism class
use strict;
...
   $org->tick();
   test_one( $org, "blinker $i", $i % 2 ? \@sblinker2 : \@sblinker1 );
}

prove tgol.t

#   Failed test 'initial cell count (11)'
#   at tgol.t line 17.
...
#          $got->[0][1] = '99'
#     $expected->[0][1] = '-101'
# Looks like you failed 18 tests of 18.