fork download
copy 
  1. #!/usr/bin/env perl
  2.  
  3. use strict;
  4. use warnings;
  5. use Test;
  6.  
  7. BEGIN {
  8.     plan tests => 8
  9. }
  10.  
  11. sub is_domain_valid {
  12.     my $domain = shift;
  13.     return $domain =~ /\.com$/ && $domain !~ /abc/;
  14. }
  15.  
  16. ok( ! is_domain_valid('def.edu'));
  17. ok( ! is_domain_valid('abc.com'));
  18. ok( ! is_domain_valid('abce.com'));
  19. ok( ! is_domain_valid('abcAnYTHing.com'));
  20. ok(is_domain_valid('a.com'));
  21. ok(is_domain_valid('b.com'));
  22. ok(is_domain_valid('ab.com'));
  23. ok(is_domain_valid('ae.com'));
  24.  
Success #stdin #stdout 0.01s 4988KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1..8
# Running under perl version 5.012001 for linux
# Current time local: Sun Oct  2 21:58:12 2011
# Current time GMT:   Sun Oct  2 21:58:12 2011
# Using Test.pm version 1.25_02
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
ok 8
https://ideone.com/IOkdY
language:
Perl (perl 5.28.1)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!