Home | Mirror | Search

3. Test::Simple

過程 39.3. setp by setp

  1. My::Test::English

    $ mkdir -p lib/My/Test/
    $ vim lib/My/Test/English.pm
    				

    package My::Test::English;
    
    # 返回單詞的複數
    sub plural {
    
        my $word = shift;
    
        # 以s/x/sh/ch結尾的情況
        if ( $word =~ /(s|x|sh|ch)$/ ) {
            $word .= 'es';
        }
    
        # 以輔音+y結尾的情況
        elsif ( $word =~ /[^aeiou]y$/ ) {
            $word =~ s/y$/ies/;
        }
    
        # 以f結尾的情況
        elsif ( $word =~ /f$/ ) {
            $word =~ s/f$/ves/;
        }
    
        # 其他情況
        else {
            $word .= 's';
        }
    
        return $word;
    }
    
    1;
    				
  2. plural.t

    $ vim t/plural.t

    #!/usr/bin/perl
    
    use My::Test::English;
    use Test::Simple qw(no_plan);
    
    BEGIN{ use lib qw(My/Test) }
    
    sub plural { My::Test::English::plural(shift) }
    
    ok (plural('diff')      eq 'difves',    plural('diff'));
    ok (plural('try')       eq 'tries',     plural('try'));
    ok (plural('book')      eq 'books',     plural('book'));
    ok (plural('finish')eq 'finish',        plural('finish'));
    ok (plural('work') eq 'works',          'works');		
    				
  3. Build test

    $ ./Build test --test_files t/plural.t --verbose 1	
    				
comments powered by Disqus