Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

use Test::Deep cmp_deeply throughout

  • Loading branch information...
commit 3c57cff71b58d14c1e9595ab8e6c2b601bdcdc8d 1 parent c91a576
David Golden authored August 13, 2011
3  t/lib/Mock/Dist.pm
@@ -5,6 +5,7 @@ package Mock::Dist;
5 5
 
6 6
 use base qw(Test::MockObject);
7 7
 use Test::More ();
  8
+use Test::Deep ();
8 9
 
9 10
 my $null = sub {};
10 11
 
@@ -31,7 +32,7 @@ sub next_call_ok {
31 32
     $label =~ s/\n$//;
32 33
     $label =~ s/\n.+$/.../s;
33 34
   }
34  
-  Test::More::is_deeply(
  35
+  Test::Deep::cmp_deeply(
35 36
     [ $self->next_call ],
36 37
     [ $method => [ $self, @$args ] ],
37 38
     $label,
7  t/lib/PAUSE/Test/pmfile.pm
@@ -6,6 +6,7 @@ package PAUSE::Test::pmfile;
6 6
 use Test::FITesque::Fixture;
7 7
 use base qw(Test::FITesque::Fixture);
8 8
 use Test::More;
  9
+use Test::Deep;
9 10
 
10 11
 use Test::MockObject;
11 12
 use Test::MockObject::Extends;
@@ -77,7 +78,7 @@ sub filter_ppps :Test :Plan(3) {
77 78
   $self->{pmfile}{YAML_CONTENT}{no_index} = $no_index;
78 79
 
79 80
   my @res = $self->{pmfile}->filter_ppps($ppp);
80  
-  is_deeply(
  81
+  cmp_deeply(
81 82
     \@res,
82 83
     $expect->{skip} ? [] : [$ppp],
83 84
     "expected result",
@@ -121,7 +122,7 @@ sub examine_fio :Test :Plan(3) {
121 122
 #  $self->{dist}->verbose_ok(1, "no keyword 'no_index' or 'private' in YAML_CONTENT");
122 123
 #  $self->{dist}->verbose_ok(1, "res[My::Dist]");
123 124
   $self->{dist}->verbose_ok(1, "Will check keys_ppp[My::Dist]\n");
124  
-  is_deeply(
  125
+  cmp_deeply(
125 126
     [ @{$PACKAGE}{ qw(PACKAGE DIST FIO TIME PMFILE USERID YAML_CONTENT) } ],
126 127
     [
127 128
       'My::Dist', 'My-Dist', $pmfile,
@@ -130,7 +131,7 @@ sub examine_fio :Test :Plan(3) {
130 131
     "correct package info",
131 132
   );
132 133
   delete $PACKAGE->{PP}{pause_reg}; # cannot guess
133  
-  is_deeply(
  134
+  cmp_deeply(
134 135
     $PACKAGE->{PP},
135 136
     {
136 137
       parsed => 1,

0 notes on commit 3c57cff

Please sign in to comment.
Something went wrong with that request. Please try again.