File Coverage

t/PerlySense-Document-Location.t
Criterion Covered Total %
statement 43 43 100.0
branch 1 2 50.0
condition n/a
subroutine 9 9 100.0
pod n/a
total 53 54 98.1


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   121356 use strict;
  1         2  
  1         63  
3              
4 1     1   477 use Test::More tests => 12;
  1         25346  
  1         9  
5 1     1   3728 use Test::Exception;
  1         3174  
  1         4  
6              
7 1     1   767 use Data::Dumper;
  1         6482  
  1         56  
8              
9 1     1   353 use lib "../lib";
  1         701  
  1         4  
10              
11 1     1   89505 use_ok("Devel::PerlySense::Document::Location");
  1         372  
  1         2  
  1         2  
  1         14  
12 1     1   1428 use_ok("Devel::PerlySense::Document");
  1         1883  
  1         2  
  1         2  
  1         10  
13 1     1   290 use_ok("Devel::PerlySense");
  1         84  
  1         2  
  1         1  
  1         6  
14              
15              
16 1 50   1   1431 BEGIN { -d "t" and chdir("t"); }
17              
18              
19 1         192 ok(my $oLocation = Devel::PerlySense::Document::Location->new(file => "thefile.pm", row => 33, col => 3), "new ok");
20 1         208 $oLocation->rhProperty->{pod} = "=head1 Yup!";
21              
22              
23 1         9 ok(my $oLocationClone = $oLocation->clone, "Clone ok");
24              
25 1         211 is($oLocationClone->file, $oLocation->file, " file ok");
26 1         213 is($oLocationClone->row, $oLocation->row, " row ok");
27 1         210 is($oLocationClone->col, $oLocation->col, " col ok");
28 1         208 is_deeply($oLocationClone->rhProperty, $oLocation->rhProperty, " rhProperty ok");
29              
30              
31              
32              
33              
34 1         413 note("As Info");
35              
36 1         44 ok(
37             $oLocation = Devel::PerlySense::Document::Location->new(
38             file => "thefile.pm",
39             row => 33,
40             col => 3,
41             ),
42             "new ok",
43             );
44 1         193 is_deeply(
45             $oLocation->rhInfo,
46             { file => "thefile.pm", row => 33, col => 3 },
47             "Got the correct rhInfo",
48             );
49              
50              
51 1         411 $oLocation->rhProperty->{class_name} = "Game::Object";
52              
53 1         7 is_deeply(
54             $oLocation->rhInfo,
55             {
56             file => "thefile.pm",
57             row => 33,
58             col => 3,
59             class_name => "Game::Object",
60             },
61             "Got the correct rhInfo with rhProperty set",
62             );
63              
64              
65              
66              
67             __END__