[Bps-public-commit] Data-ICal branch, master, updated. 0.20-1-gbfa3506

[Thomas Sibley]

The branch, master has been updated
       via  bfa350653a7b6fb62d56d3b5c8f7eca794d7ad58 (commit)
      from  143a0833faa71677ba71296f455cecdd3ab10c1f (commit)

Summary of changes:
 t/12.verson1.t | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

- Log -----------------------------------------------------------------
commit bfa350653a7b6fb62d56d3b5c8f7eca794d7ad58
Author: Thomas Sibley <trs at bestpractical.com>
Date:   Mon May 13 11:11:38 2013 -0700

    Update warning matches in tests to be partial matches
    
    This makes the tests pass on Perl 5.18.0-RC2 which has a newer Carp that
    outputs line numbers (a la warn()).

diff --git a/t/12.verson1.t b/t/12.verson1.t
index 5430323..8fe495f 100644
--- a/t/12.verson1.t
+++ b/t/12.verson1.t
@@ -12,14 +12,14 @@ BEGIN { use_ok('Data::ICal') }
 
 my $cal;
 
-warnings_are { $cal = Data::ICal->new(filename => 't/ics/version1.ics') }
-    [ {carped => "Unknown property for Data::ICal::Entry::Event: malarm"},
-    {carped => "Unknown property for Data::ICal::Entry::Event: dcreated"} ],
+warnings_like { $cal = Data::ICal->new(filename => 't/ics/version1.ics') }
+    [ {carped => qr/Unknown property for Data::ICal::Entry::Event: malarm/},
+    {carped => qr/Unknown property for Data::ICal::Entry::Event: dcreated/} ],
     "Got a warning for fake property set";
 ok((not $cal), "rejected calendar with version property value 1.0");
 
-warnings_are { $cal = Data::ICal->new(filename => 't/ics/test.ics', vcal10 => 1) }
-    [ {carped => "Unknown property for Data::ICal::Entry::Event: duration"} ],
+warnings_like { $cal = Data::ICal->new(filename => 't/ics/test.ics', vcal10 => 1) }
+    [ {carped => qr/Unknown property for Data::ICal::Entry::Event: duration/} ],
     "Got a warning for fake property set";
 ok((not $cal), "rejected calendar with version property value 2.0");
 

-----------------------------------------------------------------------