PDL-2.019/t/segfault.t

# Tests for a segfault bug in PDL through 2.4.2
# (Thanks, Alexey!)

use Test::More tests => 1;
use Test::Exception;

use PDL;
use strict;
use warnings;

my $x = pdl(1,2);
my $y = bless \my $z,"ASFG";
throws_ok {
	$x != $y
} qr/Error - tried to use an unknown/;