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