Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Fix failing export tests for JVM backend
I'm not sure whether the tests are bogus or not, but an exported sub in the
EXPORT::ALL namespace has a different .WHICH from the original on the JVM.
The exports themselves appear to be working as expected, from cursory testing.
  • Loading branch information
lizmat committed Nov 20, 2014
1 parent c548f2f commit cc95f52
Showing 1 changed file with 22 additions and 0 deletions.
22 changes: 22 additions & 0 deletions S11-modules/export.t
Expand Up @@ -20,58 +20,76 @@ is( exp_no_parens(), 'r_exp_no_parens',
is( EXPORT::ALL::exp_no_parens(), 'r_exp_no_parens',
'EXPORT::ALL::exp_no_parens() is defined' );

#?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
ok( &exp_no_parens === &EXPORT::ALL::exp_no_parens,
'exp_no_parens -- values agree' );
#?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
ok( &exp_no_parens =:= &EXPORT::ALL::exp_no_parens,
'exp_no_parens -- containers agree' );


## exp_empty_parens
#?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
ok( &exp_empty_parens === &EXPORT::ALL::exp_empty_parens,
'exp_empty_parens -- values agree' );
#?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
ok( &exp_empty_parens =:= &EXPORT::ALL::exp_empty_parens,
'exp_empty_parens -- containers agree' );


## exp_ALL
#?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
ok( &exp_ALL === &EXPORT::ALL::exp_ALL,
'exp_ALL -- values agree' );
#?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
ok( &exp_ALL =:= &EXPORT::ALL::exp_ALL,
'exp_ALL -- containers agree' );


## exp_DEFAULT
#?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
ok( &exp_DEFAULT === &EXPORT::ALL::exp_DEFAULT,
'exp_DEFAULT -- values agree' );
#?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
ok( &exp_DEFAULT =:= &EXPORT::ALL::exp_DEFAULT,
'exp_DEFAULT -- containers agree' );

#?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
ok( &exp_DEFAULT === &EXPORT::DEFAULT::exp_DEFAULT,
'exp_DEFAULT -- values agree' );
#?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
ok( &exp_DEFAULT =:= &EXPORT::DEFAULT::exp_DEFAULT,
'exp_DEFAULT -- containers agree' );


## exp_ALL_DEFAULT
#?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
ok( &exp_ALL_DEFAULT === &EXPORT::ALL::exp_ALL_DEFAULT,
'exp_ALL_DEFAULT -- values agree' );
#?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
ok( &exp_ALL_DEFAULT =:= &EXPORT::ALL::exp_ALL_DEFAULT,
'exp_ALL_DEFAULT -- containers agree' );

#?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
ok( &exp_ALL_DEFAULT === &EXPORT::DEFAULT::exp_ALL_DEFAULT,
'exp_ALL_DEFAULT -- values agree' );
#?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
ok( &exp_ALL_DEFAULT =:= &EXPORT::DEFAULT::exp_ALL_DEFAULT,
'exp_ALL_DEFAULT -- containers agree' );


## exp_MANDATORY
#?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
ok( &exp_MANDATORY === &EXPORT::ALL::exp_MANDATORY,
'exp_MANDATORY -- values agree' );
#?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
ok( &exp_MANDATORY =:= &EXPORT::ALL::exp_MANDATORY,
'exp_MANDATORY -- containers agree' );

#?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
ok( &exp_MANDATORY === &EXPORT::MANDATORY::exp_MANDATORY,
'exp_MANDATORY -- values agree' );
#?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
ok( &exp_MANDATORY =:= &EXPORT::MANDATORY::exp_MANDATORY,
'exp_MANDATORY -- containers agree' );

Expand All @@ -80,13 +98,17 @@ ok( ! &EXPORT::DEFAULT::exp_MANDATORY,


## exp_my_tag
#?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
ok( &exp_my_tag === &EXPORT::ALL::exp_my_tag,
'exp_my_tag -- values agree' );
#?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
ok( &exp_my_tag =:= &EXPORT::ALL::exp_my_tag,
'exp_my_tag -- containers agree' );

#?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
ok( &exp_my_tag === &EXPORT::my_tag::exp_my_tag,
'exp_my_tag -- values agree' );
#?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
ok( &exp_my_tag =:= &EXPORT::my_tag::exp_my_tag,
'exp_my_tag -- containers agree' );

Expand Down

0 comments on commit cc95f52

Please sign in to comment.