git.rot13.org Git - pxelator/blob - lib/PXElator/t/once.t

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5 use autodie;
   6
   7 use Test::More tests => 4;
   8
   9 use_ok 'once';
  10
  11 ok( my $rand = rand(), 'rand' );
  12 ok(   once::first_time("test-$rand"), 'first_time' );
  13 ok( ! once::first_time("test-$rand"), 'first_time again' );
  14