~ubuntu-branches/ubuntu/utopic/libversion-perl/utopic

Viewing changes to t/01base.t

Tags: 1:0.9902-1ubuntu1

* Merge from Debian unstable. Remaining changes:
- debian/control: Build-depend on locales rather than locales-all.

added added

removed removed

BEGIN {

require "t/coretests.pm";

use_ok('version', 0.9901);

use_ok('version', 0.9902);

}

diag "Tests with base class" if $Verbose;

};

ok defined($v), 'Fix for RT #47980';

{ # https://rt.cpan.org/Ticket/Display.html?id=81085

eval { version::new() };

like $@, qr'Usage: version::new$class, version$',

'No bus err when called as function';

eval { $x = 1; print version::new };

like $@, qr'Usage: version::new$class, version$',

'No implicit object creation when called as function';

eval { $x = "version"; print version::new };

like $@, qr'Usage: version::new$class, version$',

'No implicit object creation when called as function';

}