From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

ETHER / Directory-Scratch-0.18 / t / integration / 11-stringify.t 

            

              
1
2
3
4
5
6
7
8
9
10
11

              
#!/usr/bin/perl
# 11-stringify.t 
# Copyright (c) 2006 Jonathan Rockway <jrockway@cpan.org>
use strict;
use warnings;
use Test::More tests => 1;
use Directory::Scratch;
my $tmp = Directory::Scratch->new;
is($tmp->base, "$tmp", 'tmp stringifies to its base');