← Back to branch summary

~ubuntu-branches/ubuntu/trusty/libperl5i-perl/trusty-proposed

« back to all changes in this revision

Viewing changes to t/can.t

  • Committer: Bazaar Package Importer
  • Author(s): Ivan Kohler
  • Date: 2010-05-08 17:42:00 UTC
  • Revision ID: james.westby@ubuntu.com-20100508174200-7ogg0zrimh9gvcuw
Tags: upstream-2.1.1
Import upstream version 2.1.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/can.t
 
1
#!/usr/bin/perl
 
2
 
 
3
use perl5i::latest;
 
4
use Test::More;
 
5
 
 
6
{
 
7
    package Foo;
 
8
    sub bar { 42 }
 
9
}
 
10
 
 
11
my $class = "Foo";
 
12
TODO: {
 
13
    local $TODO = "autobox can() bug [github 112]";
 
14
    ok $class->can("bar"),                  "autoboxing vs can()";
 
15
}
 
16
ok $class->UNIVERSAL::can("bar"),       "  no really, it should work";
 
17
 
 
18
done_testing();