8
unless ( $ENV{DISPLAY} or $^O eq 'MSWin32' ) {
9
plan skip_all => 'Needs DISPLAY';
20
my @files = Padre::DB::History->recent('files');
21
is_deeply \@files, [], 'no files yet';
23
Padre::DB::History->create(
27
Padre::DB::History->create(
31
@files = Padre::DB::History->recent('files');
32
is_deeply \@files, [ 'Test2.pm', 'Test.pm' ], 'files';
35
@files = Padre::DB::History->recent('files');
36
is_deeply \@files, [ 'Test2.pm', 'Test.pm' ], 'files still remain after delete_recent pod';
37
ok( Padre::DB::History->delete( 'where type = ?', 'files' ) );
38
@files = Padre::DB::History->recent('files');
39
is_deeply \@files, [], 'no files after delete_recent files';