Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    
    ...
    print Dumper \@atoms;
    print Dumper \@atoms_snapshot;
    ok(eq_set(\@atoms, \@atoms_snapshot), "Basic remove dups check");
    
  2. or download this
    1..2
    ok 1 - use Atoms;
    ...
    not ok 2 - Basic remove dups check
    #     Failed test (./fake at line 22)
    # Looks like you failed 1 tests of 2.