t/library/rand.t

   1 #!./parrot
   2 # Copyright (C) 2009-2010, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/library/rand.t
   8
   9 =head1 DESCRIPTION
  10
  11 Test the Math::Rand PBC
  12
  13 =head1 SYNOPSIS
  14
  15     % prove t/library/rand.t
  16
  17 =cut
  18
  19 .sub main :main
  20     load_bytecode 'Math/Rand.pbc'
  21
  22     .include 'test_more.pir'
  23     plan(7)
  24
  25     test_rand_srand()
  26     test_rand_max()
  27 .end
  28
  29 .sub test_rand_srand
  30     .local pmc rand
  31     rand = get_global [ 'Math'; 'Rand' ], 'rand'
  32     .local pmc srand
  33     srand = get_global [ 'Math'; 'Rand' ], 'srand'
  34     $I0 = rand()
  35     is($I0,16838)
  36     $I0 = rand()
  37     is($I0,5758)
  38     $I0 = rand()
  39     is($I0,10113)
  40     $I0 = rand()
  41     is($I0,17515)
  42     srand(1)
  43     $I0 = rand()
  44     is($I0,16838)
  45     $I0 = rand()
  46     is($I0,5758)
  47 .end
  48
  49 .sub test_rand_max
  50     .local pmc rand_max
  51     rand_max = get_global [ 'Math'; 'Rand' ], 'RAND_MAX'
  52     $I0 = rand_max()
  53     is($I0,32767)
  54 .end
  55
  56
  57 # Local Variables:
  58 #   mode: pir
  59 #   fill-column: 100
  60 # End:
  61 # vim: expandtab shiftwidth=4 ft=pir: