diff options
Diffstat (limited to 'lib/Module/Build/t/tilde.t')
| -rw-r--r-- | lib/Module/Build/t/tilde.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Module/Build/t/tilde.t b/lib/Module/Build/t/tilde.t index d2abfdf015..299d4b5bd6 100644 --- a/lib/Module/Build/t/tilde.t +++ b/lib/Module/Build/t/tilde.t @@ -55,10 +55,6 @@ SKIP: { is( run_sample( $p => '~/foo' )->$p(), "$home/foo" ); - is( run_sample( $p => '~~' )->$p(), '~~' ); - - is( run_sample( $p => '~ foo' )->$p(), '~ foo' ); - is( run_sample( $p => '~/ foo')->$p(), "$home/ foo" ); is( run_sample( $p => '~/fo o')->$p(), "$home/fo o" ); @@ -91,6 +87,10 @@ SKIP: { $mb->$p('~'); is( $mb->$p(), '~', 'API does not expand tildes' ); + + skip "On OS/2 EMX all users are equal", 2 if $^O eq 'os2'; + is( run_sample( $p => '~~' )->$p(), '~~' ); + is( run_sample( $p => '~ foo' )->$p(), '~ foo' ); } # Again, with named users |