t/library/tcl_glob.t

   1 #!./parrot
   2 # Copyright (C) 2008-2010, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/library/tcl_glob.t
   8
   9 =head1 DESCRIPTION
  10
  11 test tcl-style globs
  12
  13 =head1 SYNOPSIS
  14
  15     % prove t/library/tcl_glob.t
  16
  17 =cut
  18
  19 .sub 'main' :main
  20     load_bytecode 'Test/More.pbc'
  21
  22     .local pmc exports, curr_namespace, test_namespace
  23     curr_namespace = get_namespace
  24     test_namespace = get_namespace ['Test';'More']
  25     exports        = split ' ', 'plan diag ok nok is isa_ok'
  26
  27     test_namespace.'export_to'(curr_namespace, exports)
  28
  29     # set our plan
  30     plan(24)
  31
  32     # make sure we can load the library
  33     push_eh load_failed
  34       load_bytecode 'Tcl/Glob.pbc'
  35     pop_eh
  36     ok(1, 'load_bytecode')
  37
  38     is_glob(  'asdf', 'asdf', 'exact match +')
  39     isnt_glob('asdf', 'asd',  'exact match -')
  40
  41     is_glob('asdf', '*',     '* entire')
  42     is_glob('asdf', 'a*',    '* trailing +')
  43     is_glob('asdf', '*f',    '* leading +')
  44     is_glob('asdf', 'a*f',   '* mid +')
  45     is_glob('asdf', '*asdf', 'null match')
  46
  47     isnt_glob('asdf', 'f*',  '* trailing -')
  48     isnt_glob('asdf', '*a',  '* leading -')
  49     isnt_glob('asdf', 'a*a', '* mid +-')
  50     isnt_glob('asdf', 'f*f', '* mid -+')
  51     isnt_glob('asdf', 'f*a', '* mid --')
  52
  53     is_glob('asdf', '????', '? all')
  54     is_glob('asdf', 'as?f', '? single')
  55
  56     isnt_glob('asdf', 'asdf?', '? -')
  57
  58     is_glob('asdf', 'asd[asdf]', '[]')
  59     is_glob('as_f', 'as[A-z]f',  '[] ascii order +')
  60
  61     isnt_glob('as_f', 'as[a-z]f', '[] ascii order -')
  62
  63     is_glob('?', '\?', '\?')
  64     is_glob('*', '\*', '\*')
  65     is_glob('[', '\[', '\[')
  66     is_glob(']', '\]', '\]')
  67     is_glob('\\', '\\\\', '\\\\')
  68 load_failed:
  69 .end
  70
  71 .sub 'is_glob'
  72     .param string original
  73     .param string glob
  74     .param string test_description
  75
  76     .local int boolean
  77     boolean = do_glob(original,glob)
  78     is(1, boolean, test_description)
  79 .end
  80
  81 .sub 'isnt_glob'
  82     .param string original
  83     .param string glob
  84     .param string test_description
  85
  86     .local int boolean
  87     boolean = do_glob(original,glob)
  88     is(0, boolean, test_description)
  89 .end
  90
  91 .sub 'do_glob'
  92     .param string original
  93     .param string glob
  94
  95     .local pmc globber
  96     globber = compreg 'Tcl::Glob'
  97
  98     .local pmc rule
  99     rule = globber.'compile'(glob)
 100
 101     .local pmc result
 102     result = rule(original)
 103
 104     .local int boolean
 105     boolean = istrue result
 106
 107    .return(boolean)
 108 .end
 109
 110 # Local Variables:
 111 #   mode: pir
 112 #   fill-column: 100
 113 # End:
 114 # vim: expandtab shiftwidth=4 ft=pir: