t/src/warnings.t

   1 #! perl
   2 # Copyright (C) 2001-2010, Parrot Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7 use lib qw( . lib ../lib ../../lib );
   8 use Test::More;
   9 use Parrot::Test;
  10
  11 plan tests => 2;
  12
  13 =head1 NAME
  14
  15 t/src/warnings.t - Parrot warnings
  16
  17 =head1 SYNOPSIS
  18
  19     % prove t/src/warnings.t
  20
  21 =head1 DESCRIPTION
  22
  23 Test functions defined in src/warnings.c
  24
  25 =head1 HISTORY
  26
  27 Hacked from t/src/basics.t
  28
  29 =cut
  30
  31 c_output_is( <<'CODE', <<'OUTPUT', "print_pbc_location" );
  32
  33 #include <parrot/parrot.h>
  34 #include <parrot/embed.h>
  35
  36 int
  37 main(int argc, const char* argv[])
  38 {
  39     Parrot_Interp interp = Parrot_new(NULL);
  40     int error_val;
  41
  42     if (interp) {
  43         print_pbc_location(interp);
  44
  45         Parrot_destroy(interp);
  46     }
  47     return 0;
  48 }
  49 CODE
  50 (null)
  51 OUTPUT
  52
  53 c_output_is( <<'CODE', <<'OUTPUT', "Parrot_warn" );
  54
  55 #include <parrot/parrot.h>
  56 #include <parrot/embed.h>
  57
  58 int
  59 main(int argc, const char* argv[])
  60 {
  61     Parrot_Interp interp = Parrot_new(NULL);
  62     int error_val;
  63
  64     if (interp) {
  65         PARROT_WARNINGS_on(interp, PARROT_WARNINGS_ALL_FLAG);
  66
  67         error_val = Parrot_warn(interp, PARROT_WARNINGS_ALL_FLAG, "all");
  68         Parrot_io_eprintf(interp, "%d\n", error_val);
  69
  70         /* warnings are on, this should return an error */
  71         error_val = Parrot_warn(interp, PARROT_WARNINGS_NONE_FLAG, "none");
  72         Parrot_io_eprintf(interp, "%d\n", error_val);
  73
  74         error_val = Parrot_warn(interp, PARROT_WARNINGS_UNDEF_FLAG, "undef");
  75         Parrot_io_eprintf(interp, "%d\n", error_val);
  76
  77         error_val = Parrot_warn(interp, PARROT_WARNINGS_IO_FLAG, "io");
  78         Parrot_io_eprintf(interp, "%d\n", error_val);
  79
  80         error_val = Parrot_warn(interp, PARROT_WARNINGS_PLATFORM_FLAG, "platform");
  81         Parrot_io_eprintf(interp, "%d\n", error_val);
  82
  83         error_val = Parrot_warn(interp, PARROT_WARNINGS_DYNEXT_FLAG, "dynext");
  84         Parrot_io_eprintf(interp, "%d\n", error_val);
  85
  86         error_val = Parrot_warn(interp, 0, "eek"); /* should return error */
  87         Parrot_io_eprintf(interp, "%d\n", error_val);
  88
  89         Parrot_destroy(interp);
  90    }
  91    return 0;
  92 }
  93 CODE
  94 all
  95 (null)
  96 1
  97 2
  98 undef
  99 (null)
 100 1
 101 io
 102 (null)
 103 1
 104 platform
 105 (null)
 106 1
 107 dynext
 108 (null)
 109 1
 110 2
 111 OUTPUT
 112
 113 # Local Variables:
 114 #   mode: cperl
 115 #   cperl-indent-level: 4
 116 #   fill-column: 100
 117 # End:
 118 # vim: expandtab shiftwidth=4: