t/library/uuid.t

   1 #!./parrot
   2 # Copyright (C) 2008-2010, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/library/uuid.t
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/library/uuid.t
  12
  13 =head1 DESCRIPTION
  14
  15 uuid library tests
  16
  17 =cut
  18
  19 .sub main :main
  20     load_bytecode 'uuid.pbc'
  21
  22     .include 'test_more.pir'
  23     plan(20)
  24
  25     test_generate_1()
  26     test_generate_2()
  27     test_generate_random()
  28     test_generate_time()
  29     test_parse_1()
  30     test_parse_2()
  31     test_time()
  32     test_type()
  33     test_variant()
  34 .end
  35
  36
  37 .sub test_generate_1
  38     $P0 = get_global ['uuid'], 'generate'
  39     $P1 = $P0()
  40     $S1 = typeof $P1
  41     is($S1,'uuid', 'generate 1')
  42 .end
  43
  44
  45 .sub test_generate_2
  46     $P0 = get_global ['uuid'], 'generate'
  47     $P1 = $P0()
  48     like($P1, '<[0..9a..f]>**8\-<[0..9a..f]>**4\-<[0..9a..f]>**4\-<[0..9a..f]>**4\-<[0..9a..f]>**12', 'generate 2' )
  49 .end
  50
  51
  52 .sub test_generate_random
  53     $P0 = get_global ['uuid'], 'generate_random'
  54     $P1 = $P0()
  55     like($P1, '<[0..9a..f]>**8\-<[0..9a..f]>**4\-<[0..9a..f]>**4\-<[0..9a..f]>**4\-<[0..9a..f]>**12', 'generate random')
  56 .end
  57
  58
  59 .sub test_generate_time
  60     $P0 = get_global ['uuid'], 'generate_time'
  61     $P1 = $P0()
  62     like($P1, '<[0..9a..f]>**8\-<[0..9a..f]>**4\-<[0..9a..f]>**4\-<[0..9a..f]>**4\-<[0..9a..f]>**12', 'generate time')
  63 .end
  64
  65
  66 .sub test_parse_1
  67     $P0 = get_global ['uuid'], 'parse'
  68     ($I0, $P1) = $P0("84949cc5-4701-4a84-895b-354c584a981b")
  69     is($I0, 0, 'parse 1')
  70     $S1 = typeof $P1
  71     is($S1, 'uuid', 'parse 1')
  72 .end
  73
  74
  75 .sub test_parse_2
  76     $P0 = get_global ['uuid'], 'parse'
  77     $I0 = $P0("84949cc5-4701-4a84-895b-354c584a981b")
  78     is($I0, 0, 'parse 2')
  79     $I0 = $P0("84949CC5-4701-4A84-895B-354C584A981B")
  80     is($I0, 0, 'parse 2')
  81     $I0 = $P0("84949cc5-4701-4a84-895b-354c584a981bc")
  82     is($I0, -1, 'parse 2')
  83     $I0 = $P0("84949cc5-4701-4a84-895b-354c584a981")
  84     is($I0, -1, 'parse 2')
  85     $I0 = $P0("84949cc5x4701-4a84-895b-354c584a981b")
  86     is($I0, -1, 'parse 2')
  87     $I0 = $P0("84949cc504701-4a84-895b-354c584a981b")
  88     is($I0, -1, 'parse 2')
  89     $I0 = $P0("84949cc5-470104a84-895b-354c584a981b")
  90     is($I0, -1, 'parse 2')
  91     $I0 = $P0("84949cc5-4701-4a840895b-354c584a981b")
  92     is($I0, -1, 'parse 2')
  93     $I0 = $P0("84949cc5-4701-4a84-895b0354c584a981b")
  94     is($I0, -1, 'parse 2')
  95     $I0 = $P0("g4949cc5-4701-4a84-895b-354c584a981b")
  96     is($I0, -1, 'parse 2')
  97     $I0 = $P0("84949cc5-4701-4a84-895b-354c584a981g")
  98     is($I0, -1, 'parse 2')
  99 .end
 100
 101
 102 .sub test_time
 103     $P0 = get_global ['uuid'], 'parse'
 104     ($I0, $P1) = $P0("84949cc5-4701-4a84-895b-354c584a981b")
 105     $I1 = $P1.'time'()
 106     is($I1, -1, 'time')
 107 .end
 108
 109
 110 .sub test_type
 111     $P0 = get_global ['uuid'], 'generate'
 112     $P1 = $P0()
 113     $I0 = $P1.'type'()
 114     is($I0, 4, 'type')
 115 .end
 116
 117
 118 .sub test_variant
 119     $P0 = get_global ['uuid'], 'generate'
 120     $P1 = $P0()
 121     $I0 = $P1.'variant'()
 122     is($I0, 1, 'variant')
 123 .end
 124
 125
 126 # Local Variables:
 127 #   mode: pir
 128 #   fill-column: 100
 129 # End:
 130 # vim: expandtab shiftwidth=4 ft=pir: