PageRenderTime 34ms CodeModel.GetById 10ms RepoModel.GetById 0ms app.codeStats 0ms

/trunk/Examples/test-suite/perl5/virtual_poly_runme.pl

#
Perl | 36 lines | 19 code | 10 blank | 7 comment | 0 complexity | 4e7dbd1c5f8ec5a86440206c9bc1c210 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  1. #!/usr/bin/perl
    2. 

  2. use strict;
    3. 

  3. use warnings;
    4. 

  4. use Test::More tests => 8;
    5. 

  5. BEGIN { use_ok('virtual_poly') }
    6. 

  6. require_ok('virtual_poly');
    7. 

  7. 

  8. my $d = virtual_poly::NDouble->new(3.5);
    9. 

  9. my $i = virtual_poly::NInt->new(2);
    10. 

  10. 

  11. #
    12. 

  12. # the copy methods return the right polymorphic types
    13. 

  13. # 
    14. 

  14. my $dc = $d->copy();
    15. 

  15. my $ic = $i->copy();
    16. 

  16. 

  17. is($d->get(), $dc->get());
    18. 

  18. 

  19. is($i->get(), $ic->get());
    20. 

  20. 

  21. virtual_poly::incr($ic);
    22. 

  22. 

  23. is($i->get() + 1, $ic->get());
    24. 

  24. 

  25. my $dr = $d->ref_this();
    26. 

  26. is($d->get(), $dr->get());
    27. 

  27. 

  28. 

  29. #
    30. 

  30. # 'narrowing' also works
    31. 

  31. #
    32. 

  32. my $ddc = virtual_poly::NDouble::narrow($d->nnumber());
    33. 

  33. is($d->get, $ddc->get());
    34. 

  34. 

  35. my $dic = virtual_poly::NInt::narrow($i->nnumber());
    36. 

  36. is($i->get(), $dic->get());
    37. 

  37.