1use strict; 2use warnings; 3use Test::More 0.96; 4use File::pushd; 5 6eval { 7 my $dir = tempd; 8 die("error\n"); 9}; 10 11my $err = $@; 12is( $err, "error\n", "destroy did not clobber \$@\n" ); 13 14done_testing; 15# 16# This file is part of File-pushd 17# 18# This software is Copyright (c) 2018 by David A Golden. 19# 20# This is free software, licensed under: 21# 22# The Apache License, Version 2.0, January 2004 23# 24# vim: ts=4 sts=4 sw=4 et: 25