t/op/time_old.t

   1 #!perl
   2 # Copyright (C) 2001-2009, Parrot Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7 use lib qw( . lib ../lib ../../lib );
   8 use Test::More;
   9 use Parrot::Test tests => 1;
  10
  11 =head1 NAME
  12
  13 t/op/time.t - Time and Sleep
  14
  15 =head1 SYNOPSIS
  16
  17     % prove t/op/time.t
  18
  19 =head1 DESCRIPTION
  20
  21 Tests the C<time> and C<sleep> operations.
  22
  23 =cut
  24
  25 my $year;
  26 ( undef, undef, undef, undef, undef, $year ) = localtime();
  27 $year += 1900;
  28
  29 # don't run this test 1 tick before the year changes #'
  30
  31 pasm_output_is( <<'CODE', $year, "decodelocaltime" );
  32     time I0
  33     decodelocaltime P0, I0
  34     .include "tm.pasm"
  35     set I0, P0[.TM_YEAR]
  36     print I0
  37     end
  38 CODE
  39
  40
  41 # Local Variables:
  42 #   mode: cperl
  43 #   cperl-indent-level: 4
  44 #   fill-column: 100
  45 # End:
  46 # vim: expandtab shiftwidth=4: