Ticket #1047: tt1047.diff

File tt1047.diff, 1.3 KB (added by jkeenan, 3 years ago)

diff of work done to date in tt1047/type_sizes branch

  • config/inter/types.pm

    diff --git a/config/inter/types.pm b/config/inter/types.pm
    index cd6720e..39a95d8 100644
    a b  
    3434 
    3535    my $intval   = $conf->options->get('intval')   || 'long'; 
    3636    my $floatval = $conf->options->get('floatval') || 'double'; 
    37     my $opcode   = $conf->options->get('opcode')   || 'long'; 
     37    my $opcode   = $intval; 
    3838 
    3939    if ( $conf->options->get('ask') ) { 
    4040        $intval   = prompt( "\n\nHow big would you like your integers to be?", $intval ); 
    4141        $floatval = prompt( "And your floats?",                                $floatval ); 
    42         $opcode   = prompt( "What's your native opcode type?",                 $opcode ); 
    4342        print "\n"; 
    4443    } 
    4544 
  • t/steps/inter/types-01.t

    diff --git a/t/steps/inter/types-01.t b/t/steps/inter/types-01.t
    index 261d212..4c77f13 100644
    a b  
    5555 
    5656$conf->options->set('intval' => 'alpha'); 
    5757$conf->options->set('floatval' => 'beta'); 
    58 $conf->options->set('opcode' => 'gamma'); 
    59 @prompts = qw( delta epsilon zeta ); 
     58@prompts = qw( delta epsilon ); 
    6059 
    6160$object = tie *STDIN, 'Tie::Filehandle::Preempt::Stdin', @prompts; 
    6261can_ok( 'Tie::Filehandle::Preempt::Stdin', ('READLINE') );