Skip to content

Instantly share code, notes, and snippets.

@monmon
Created December 14, 2013 15:31
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save monmon/7960586 to your computer and use it in GitHub Desktop.
Save monmon/7960586 to your computer and use it in GitHub Desktop.
正規表現のx修飾子を使い、かつ、"ム"を指定するとTest::MinimumVersionでrequires 5.017009になる。 これかな? http://search.cpan.org/dist/perl-5.17.9/pod/perldelta.pod#Five_additional_characters_should_be_escaped_in_patterns_with_/x
use strict;
use warnings;
use utf8;
use Test::More;
use Test::MinimumVersion::Fast;
minimum_version_ok('miniversion.pl', '5.010000');
done_testing;
# ok 1 - miniversion.pl
# 1..1
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use 5.010000;
my $re = qr/ム/x;
use strict;
use warnings;
use utf8;
use Test::More;
use Test::MinimumVersion;
minimum_version_ok('miniversion.pl', '5.010000');
done_testing;
# not ok 1 - miniversion.pl
# # Failed test 'miniversion.pl'
# # at miniversion.t line 7.
# # miniversion.pl requires 5.017009 due to syntax
# 1..1
# # Looks like you failed 1 test of 1.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment