t/pmc/sockaddr.t

   1 #!./parrot
   2 # Copyright (C) 2006-2010, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/pmc/sockaddr.t - test the Sockaddr PMC
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/pmc/sockaddr.t
  12
  13 =head1 DESCRIPTION
  14
  15 Test the Sockaddr PMC.
  16
  17 =cut
  18
  19 .sub main :main
  20     .include 'test_more.pir'
  21
  22     plan(5)
  23
  24     new $P0, ['Socket']
  25     ok(1, 'Instantiated a Socket PMC')
  26
  27     $P1 = $P0."sockaddr"("localhost", 1234)
  28     ok(1, 'socket.sockaddr method successful')
  29
  30     $I0 = isnull $P0
  31     $I0 = not $I0
  32     ok($I0, 'Sockaddr PMC created')
  33
  34     $S0 = typeof $P1
  35     is($S0, 'Sockaddr', 'PMC has correct type')
  36
  37     $P2 = clone $P1
  38     $S2 = typeof $P2
  39     is($S2, 'Sockaddr', 'PMC clone has correct type')
  40 .end
  41
  42 # Local Variables:
  43 #   mode: pir
  44 #   fill-column: 100
  45 # End:
  46 # vim: expandtab shiftwidth=4 ft=pir: