The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

RJBS / base-2.23 / t / version.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12

              
#!/usr/bin/perl -w
use strict;
use Test::More tests => 1;
# Here we emulate a bug with base.pm not finding the Exporter version
# for some reason.
use lib qw(t/lib);
use base qw(Dummy);
is( $Dummy::VERSION, 5.562,       "base.pm doesn't confuse the version" );