steal more tests from other modules

[p5sagit/Function-Parameters.git] / t / foreign / Method-Signatures / named.t

#!perl
use warnings FATAL => 'all';
use strict;

use Test::More;

{
    package Foo;

    use Test::More;
    use Test::Fatal;;
    use Function::Parameters qw(:strict);

    method formalize($text, :$justify = "left", :$case = undef) {
        my %params;
        $params{text}           = $text;
        $params{justify}        = $justify;
        $params{case}           = $case if defined $case;

        return \%params;
    }

    is_deeply( Foo->formalize( "stuff" ), { text => "stuff", justify => "left" } );

    like exception { Foo->formalize( "stuff", wibble => 23 ) }, qr/\bnamed\b.+\bwibble\b/;

    method foo( :$arg ) {
        return $arg;
    }

    is( Foo->foo( arg => 42 ), 42 );
    like exception { foo() }, qr/Not enough arguments/;


    # Compile time errors need internal refactoring before I can get file, line and method
    # information.
    eval q{
        method wrong( :$named, $pos ) {}
    };
    like $@, qr/\bpositional\b.+\$pos\b.+\bnamed\b.+\$named\b/;

    eval q{
        method wrong( $foo, :$named, $bar ) {}
    };
    like $@, qr/\bpositional\b.+\$bar\b.+\bnamed\b.+\$named\b/;

    eval q{
        method wrong( $foo, $bar = undef, :$named ) {}
    };
    like $@, qr/\boptional positional\b.+\$bar\b.+\brequired named\b.+\$named\b/;
}


done_testing();