|
Revision 2562, 0.7 kB
(checked in by bchoate, 18 months ago)
|
|
Test suite cleanup. Use MT::Test to force t/ based configuration file for all tests. Fixed several tests that had incorrect expected values.
|
-
Property svn:keywords set to
Id Revision
|
| Line | |
|---|
| 1 | #!/usr/bin/perl |
|---|
| 2 | use strict; |
|---|
| 3 | use warnings; |
|---|
| 4 | use lib 't/lib', 'extlib', 'lib', '../lib', '../extlib'; |
|---|
| 5 | use Test::More; |
|---|
| 6 | use MT::Test; |
|---|
| 7 | use JSON qw(jsonToObj); |
|---|
| 8 | use MT::Tag; |
|---|
| 9 | |
|---|
| 10 | my $file = '<t/49-tagsplit.dat'; |
|---|
| 11 | open TEST, $file or die "Can't open $file: $!"; |
|---|
| 12 | local $/ = undef; |
|---|
| 13 | my $test_data = <TEST>; |
|---|
| 14 | close TEST; |
|---|
| 15 | my $tests = jsonToObj($test_data); |
|---|
| 16 | plan tests => scalar(keys %$tests) * 2; |
|---|
| 17 | |
|---|
| 18 | foreach my $delim (',', ' ') { |
|---|
| 19 | foreach my $test (sort keys %$tests) { |
|---|
| 20 | my @tags = MT::Tag->split($delim, $test); |
|---|
| 21 | my %tags = map { $_ => 1 } @tags; |
|---|
| 22 | is(scalar keys %tags, $tests->{$test}{$delim}, |
|---|
| 23 | "$test ($delim): $tests->{$test}{$delim} tags"); |
|---|
| 24 | } |
|---|
| 25 | } |
|---|
