← Back to branch summary

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

« back to all changes in this revision

Viewing changes to t/Octopussy_Device.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_Device.t
16
16
 
17
17
use File::Path;
18
18
use List::MoreUtils qw(true);
19
 
use Test::More tests => 15;
 
19
use Test::More tests => 20;
20
20
 
21
21
use FindBin;
22
22
use lib "$FindBin::Bin/../usr/share/perl5";
102
102
ok(scalar @models >= $NB_MIN_MODELS && $nb_models >= $NB_MIN_SELECT_MODELS,
103
103
  'Octopussy::Device::Models()');
104
104
 
 
105
my $is_valid = Octopussy::Device::Valid_Name(undef);
 
106
ok(!$is_valid, 'Octopussy::Device::Valid_Name(undef)');
 
107
 
 
108
$is_valid = Octopussy::Device::Valid_Name('123invalid_hostname');
 
109
ok(!$is_valid, "Octopussy::Device::Valid_Name('123invalid_hostname')");
 
110
 
 
111
$is_valid = Octopussy::Device::Valid_Name('validhostname');
 
112
ok($is_valid, "Octopussy::Device::Valid_Name('validhostname')");
 
113
 
 
114
$is_valid = Octopussy::Device::Valid_Name('10.150.1.9');
 
115
ok($is_valid, "Octopussy::Device::Valid_Name('10.150.1.9')");
 
116
 
 
117
$is_valid = Octopussy::Device::Valid_Name('host.domain.com');
 
118
ok($is_valid, "Octopussy::Device::Valid_Name('host.domain.com')");
 
119
 
105
120
# TO_DO
106
121
# Filtered_Configurations()
107
122
# Services_Configurations()