File: 07_gh15.t

package info (click to toggle)
libfile-sharedir-projectdistdir-perl 1.000008-1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 404 kB
  • ctags: 24
  • sloc: perl: 456; makefile: 2
file content (27 lines) | stat: -rw-r--r-- 483 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 

use strict;
use warnings;

use Test::More 0.96;
use FindBin;
use lib "$FindBin::Bin/07_files/lib";

use Example_01;

# This is a bug, TODO make it suck less
local $TODO = "Not sure if this can even be solved. Docs are sub-par and the Sub::Exporter code is a mess";
my $err;
is(
  do {
    local $@;
    my $x = eval { Example_01->test(); q[passed] };
    $err = $@;
    $x;
  },
  'passed',
  'Peculiar grammar messes up in a well defined way'
);
note explain $err;

done_testing;