# New Ticket Created by Justin DeVuyst
# Please include the string: [perl #124445]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=124445 >
justin@dizzy rakudo $ perl6 --doc lib/Test.pm
NAME
Test - Rakudo Testing Library
SYNOPSIS
use Test;
DESCRIPTION
FUNCTIONS
throws_like($code, Mu $expected_type, *%matchers)
If $code is Callable, calls it, otherwise EVALs it, and expects it thrown an
exception.
If an exception is thrown, it is compared to $expected_type.
Then for each key in %matchers, a method of that name is called on the
resulting exception, and its return value smart-matched against the value.
Each step is counted as a separate test; if one of the first two fails, the
rest of the tests are skipped.
use of uninitialized value of type Any in numeric context in block <unit> at
lib/Test.pm:603
use of uninitialized value of type Any in numeric context in block <unit> at
lib/Test.pm:603
use of uninitialized value of type Any in numeric context in block <unit> at
lib/Test.pm:654
use of uninitialized value of type Any in numeric context in block <unit> at
lib/Test.pm:654
use of uninitialized value of type Any in numeric context in block <unit> at
lib/Test.pm:654
justin@dizzy rakudo $
