t/regex.t

   1 #!/usr/local/bin/perl -sw
   2
   3 use strict ;
   4
   5 use lib 't' ;
   6 use lib '..' ;
   7 require 'common.pm' ;
   8
   9 my @sort_styles = qw( plain orcish ST GRT ) ;
  10
  11 my $sort_tests = [
  12
  13         {
  14                 skip    => 0,
  15                 name    => 'regex string',
  16                 gen     => sub { rand_token() },
  17                 gold    => sub { ($a =~ /(\w+)/)[0] cmp ($b =~ /(\w+)/)[0] },
  18                 args    => [ qw( string /(\w+)/ ) ],
  19         },
  20         {
  21                 skip    => 0,
  22                 source  => 0,
  23                 name    => 'qr string',
  24                 gen     => sub { rand_token() },
  25                 gold    => sub { ($a =~ /(\w+)/)[0] cmp ($b =~ /(\w+)/)[0] },
  26                 args    => [ string => qr/(\w+)/ ],
  27         },
  28 ] ;
  29
  30 common_driver( $sort_tests, \@sort_styles ) ;
  31
  32 exit ;