From 7a6892167a96b5aad59f0d2663c33906d6d2ee77 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Tue, 23 Feb 2010 19:40:01 +0000 Subject: [PATCH] dislay path created with html --- t/koha/02-create-test-user.t | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/t/koha/02-create-test-user.t b/t/koha/02-create-test-user.t index 3eaa708..e2cb50c 100755 --- a/t/koha/02-create-test-user.t +++ b/t/koha/02-create-test-user.t @@ -15,7 +15,11 @@ use WWW::Mechanize; my $mech = Test::WWW::Mechanize->new; my $save_count = 1; -sub save { write_file "/tmp/login-$save_count.html", @_; $save_count++; } +sub save { + my $path = '/tmp/login-' . $save_count++ . '.html'; + write_file $path, @_; + warn "# save $path ", -s $path, " bytes\n"; +} $mech->get_ok( 'https://localhost', 'opac' ); -- 2.20.1