source: trunk/essentials/dev-lang/perl/t/op/oct.t@ 3298

#!./perl

# tests 51 onwards aren't all warnings clean. (intentionally)

print "1..71\n";

my $test = 1;

sub test ($$$) {
  my ($act, $string, $value) = @_;
  my $result;
  if ($act eq 'oct') {
    $result = oct $string;
  } elsif ($act eq 'hex') {
    $result = hex $string;
  } else {
    die "Unknown action 'act'";
  }
  if ($value == $result) {
    if ($^O eq 'VMS' && length $string > 256) {
      $string = '';
    } else {
      $string = "\"$string\"";
    }
    print "ok $test # $act $string\n";
  } else {
    my ($valstr, $resstr);