#! /usr/bin/env perl
# GH #274, custom op Devel_Peek_Dump
use strict;
BEGIN {
  unshift @INC, 't';
  require TestBC;
}
use Test::More;
plan skip_all => 'custom op Dump since 5.19.3' if $] < 5.019003; 
plan tests => 2;
use B::C ();
my $todo = ($B::C::VERSION ge '1.52_11') ? "" : "TODO ";
$todo = "" if $] < 5.019003;
ctest(1, "ok", 'C','ccode2741i',<<'EOF',$todo.'custom op');
use Devel::Peek; my %hash = ( a => 1 ); Dump(%hash); print "ok\n"
EOF
ctest(2, "ok", 'C,-O1','ccode2741i',<<'EOF',$todo.'custom op -O1');
use Devel::Peek; my %hash = ( a => 1 ); Dump(%hash); print "ok\n"
EOF
# no tests yet for other custom ops, with the address via Perl_custom_op_xop( $$op )