diff options
author | bscan <10503608+bscan@users.noreply.github.com> | 2022-02-28 22:18:24 -0500 |
---|---|---|
committer | bscan <10503608+bscan@users.noreply.github.com> | 2022-02-28 22:18:24 -0500 |
commit | 446e2e081be1bddfa4d49f873999d0ec7f3aff5b (patch) | |
tree | 09e47b5300af71d4bad9ffc0a21274231f5ccd1d /t | |
parent | ea1b5c7ac09743ae4f34fea1be03364600bd4dc1 (diff) | |
download | PerlNavigator-446e2e081be1bddfa4d49f873999d0ec7f3aff5b.zip |
Adding some tests
Diffstat (limited to 't')
-rw-r--r-- | t/01_MyClass.t | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/t/01_MyClass.t b/t/01_MyClass.t new file mode 100644 index 0000000..fccc375 --- /dev/null +++ b/t/01_MyClass.t @@ -0,0 +1,21 @@ +use strict; +use warnings; +use Capture::Tiny qw(capture); +use Test::More import => [qw(done_testing is like)]; + +# Need to pass some signal to inquistor to not run during its CHECK block. Alternatively, maybe we can check for the test harness environment variable? +BEGIN { $ENV{'PERLNAVIGATORTEST'} = 1; } + +use FindBin qw($Bin); +use lib "$Bin/../server/src/perl"; +use Inquisitor; + + +my $testFile = File::Spec->rel2abs("$Bin/../testWorkspace/MyLib/MyClass.pm"); +my $output = capture(sub { Inquisitor::run($testFile) }); +my $symbols = Inquisitor::tags_to_symbols($output); + +is($symbols->{'overridden_method'}->[0]->{'type'}, 's', 'Basic sub'); +is($symbols->{'overridden_method'}->[0]->{'line'}, '11;14', 'Sub boundaries'); + +done_testing;
\ No newline at end of file |