use strict;
use Test::More tests => 2;
use Data::Postponed ':postpone';

my $val = 1;
is( $val, 1, '$val is the proper value' );

my $success = !! eval { $val = "Unexpected"; 1 };
my $error = "$@";
ok( ! $success, 'Write failed' );

#is( $val, 1, '$val == 1' );
#like( $error, qr/Modification of a read-only value attempted/ );
