File Coverage

t/PerlySense-Document-self-method-call.t
Criterion Covered Total %
statement 50 50 100.0
branch 1 2 50.0
condition n/a
subroutine 9 9 100.0
pod n/a
total 60 61 98.3


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   176634 use strict;
  1         2  
  1         95  
3              
4 1     1   536 use Test::More tests => 13;
  1         20666  
  1         10  
5 1     1   1704 use Test::Exception;
  1         10753  
  1         5  
6              
7 1     1   256 use File::Basename;
  1         1  
  1         111  
8 1     1   384 use File::Spec::Functions;
  1         477  
  1         63  
9              
10 1     1   281 use lib "../lib";
  1         556  
  1         4  
11              
12 1     1   97835 use_ok("Devel::PerlySense::Document");
  1         639  
  1         3  
  1         2  
  1         9  
13 1     1   466 use_ok("Devel::PerlySense::Document::Location");
  1         76  
  1         1  
  1         1  
  1         6  
14              
15              
16 1 50   1   1855 BEGIN { -d "t" and chdir("t"); }
17              
18              
19 1         472 ok(my $oDocument = Devel::PerlySense::Document->new(oPerlySense => Devel::PerlySense->new()), "new ok");
20              
21 1         200 my $dirData = "data/simple-lib";
22 1         3 my $fileOrigin = "$dirData/lib/Win32/Word/Writer.pm";
23              
24 1         3 ok($oDocument->parse(file => $fileOrigin), "Parsed file ok");
25              
26              
27              
28              
29              
30 1         315 my $fragment = '$self->SetStyle';
31 1         7 is(scalar($oDocument->methodCallAt(row => 452, col => 1)), undef, "No perl fragment ok, between stuff");
32              
33 1         454 $fragment = '$self->SetStyle';
34 1         5 is($oDocument->methodCallAt(row => 425, col => 20) . "", $fragment, "Correct perl fragment ok, on method");
35              
36              
37 1         191 $fragment = '$self->rhConst';
38 1         4 is($oDocument->methodCallAt(row => 947, col => 47) . "", $fragment, "Correct perl fragment ok, on inner method");
39 1         189 is(scalar($oDocument->methodCallAt(row => 947, col => 54)), undef, "Didn't find perl fragment ok, on last arrow");
40              
41              
42 1         522 $fragment = '$self->oSelection';
43 1         4 is($oDocument->methodCallAt(row => 947, col => 14) . "", $fragment, "Correct perl fragment ok, Other chained method call after");
44              
45              
46 1         199 $fragment = 'oSelection->GoTo';
47 1         3 is($oDocument->methodCallAt(row => 947, col => 24) . "", $fragment, "Correct perl fragment ok, Chained method call (looks like class method call, maybe should be a ->oSelection->GoTo)");
48              
49              
50 1         196 $fragment = '->oDocument';
51 1         3 is($oDocument->methodCallAt(row => 968, col => 19) . "", $fragment, 'Correct perl fragment ok, $rabject[9]->oDocument');
52              
53 1         191 $fragment = 'Win32::OLE->Option';
54 1         4 is($oDocument->methodCallAt(row => 242, col => 18) . "", $fragment, "Correct perl fragment ok, Class method");
55              
56 1         364 $fragment = '$self->MarkDocumentAsSaved';
57 1         4 is($oDocument->methodCallAt(row => 1016, col => 36) . "", $fragment, "Correct perl fragment ok, Should work");
58              
59              
60              
61              
62              
63             __END__