← Back to branch summary

~ubuntu-branches/ubuntu/raring/octopussy/raring

« back to all changes in this revision

Viewing changes to t/Octopussy_Storage.t

  • Committer: Package Import Robot
  • Author(s): James Page
  • Date: 2012-09-25 10:27:37 UTC
  • mfrom: (1.1.1)
  • Revision ID: package-import@ubuntu.com-20120925102737-1hgntjl557w3sjqh
Tags: 1.0.6-0ubuntu1
https://launchpad.net/bugs/1056016
* New upstream release (LP: #1056016).
* d/control: bumped Standards-Version: 3.9.3, no changes.
* d/{copyright,control}: Updated upstream URL.
* d/README.Debian: Fixed minor typo.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/Octopussy_Storage.t
15
15
use Readonly;
16
16
 
17
17
use List::MoreUtils qw(none);
18
 
use Test::More tests => 7;
 
18
use Test::More tests => 11;
19
19
 
20
20
use FindBin;
21
21
use lib "$FindBin::Bin/../usr/share/perl5";
73
73
my @list3 = Octopussy::Storage::List();
74
74
ok(scalar @list1 == scalar @list3, 'Octopussy::Storage::Remove()');
75
75
 
 
76
my $is_valid = Octopussy::Storage::Valid_Name(undef);
 
77
ok(!$is_valid, 'Octopussy::Storage::Valid_Name(undef)');
 
78
 
 
79
$is_valid = Octopussy::Storage::Valid_Name('storage with space');
 
80
ok(!$is_valid, "Octopussy::Storage::Valid_Name('storage with space')");
 
81
 
 
82
$is_valid = Octopussy::Storage::Valid_Name('valid-storage');
 
83
ok($is_valid, "Octopussy::Storage::Valid_Name('valid-storage')");
 
84
 
 
85
$is_valid = Octopussy::Storage::Valid_Name('valid_storage');
 
86
ok($is_valid, "Octopussy::Storage::Valid_Name('valid_storage')");
 
87
 
76
88
system "mv $FILE_STORAGE.backup $FILE_STORAGE";
77
89
 
78
90
1;