Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
awit-perl-toolkit
Project overview
Project overview
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Boards
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
awit-frameworks
awit-perl-toolkit
Commits
85ca1465
Commit
85ca1465
authored
Sep 15, 2016
by
Nigel Kukard
Browse files
Options
Browse Files
Download
Plain Diff
Merge branch 'nk-ci-1' into 'master'
Added CI tests for isDomain() See merge request
!3
parents
6944c201
b30f69f3
Pipeline
#217
passed with stages
in 8 minutes and 34 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
50 additions
and
0 deletions
+50
-0
t/isdomain.t
t/isdomain.t
+50
-0
No files found.
t/isdomain.t
0 → 100644
View file @
85ca1465
# Test harness for isDomain
# Copyright (C) 2014-2016, AllWorldIT
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with this program; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use
Test::
More
;
use
strict
;
use
warnings
;
use
AWITPT::
Util
;
use
AWITPT::
Object
;
my
$hash
=
{
'
makeHash
'
=>
1
};
my
$object
=
AWITPT::
Object
->
new
();
is
(
isDomain
(
0
),
0
,"
Check 0 returns 0
");
is
(
isDomain
('
0
'),
0
,"
Check 0 returns 0
");
is
(
isDomain
(
$hash
),
undef
,"
Check HASH returns 0
");
is
(
isDomain
(
$object
),
undef
,"
Check OBJECT returns 0
");
is
(
isDomain
("
example
"),"
example
","
Check 'example' returns 0
");
is
(
isDomain
("
example.com
"),"
example.com
","
Check 'example.com' returns 1
");
done_testing
();
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment