t/src/basic.t

   1 #! perl
   2 # Copyright (C) 2001-2006, 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 tests => 3;
  10
  11 =head1 NAME
  12
  13 t/src/basic.t - Basics
  14
  15 =head1 SYNOPSIS
  16
  17     % prove t/src/basic.t
  18
  19 =head1 DESCRIPTION
  20
  21 Tests C<printf> and C<exit_fatal> functions.
  22
  23 =cut
  24
  25 c_output_is( <<'CODE', <<'OUTPUT', "hello world" );
  26     #include <stdio.h>
  27     #include <stdlib.h>
  28
  29     int
  30     main(int argc, char* argv[])
  31     {
  32         printf("Hello, World!\n");
  33         exit(0);
  34     }
  35 CODE
  36 Hello, World!
  37 OUTPUT
  38
  39 c_output_is( <<'CODE', <<'OUTPUT', "direct exit_fatal call" );
  40     #include <parrot/parrot.h>
  41     #include <parrot/exceptions.h>
  42
  43     int
  44     main(int argc, char* argv[])
  45     {
  46          exit_fatal(0, "Blow'd Up(tm)"); /* ' */
  47     }
  48 CODE
  49 Blow'd Up(tm)
  50 OUTPUT
  51
  52 # vor $EDITOR '
  53
  54 c_output_is( <<'CODE', <<'OUTPUT', "Parrot_run_native" );
  55
  56 #include <parrot/parrot.h>
  57 #include <parrot/embed.h>
  58
  59 static opcode_t *the_test(Parrot_Interp, opcode_t *, opcode_t *);
  60
  61 int
  62 main(int argc, char* argv[])
  63 {
  64     Interp *interp;
  65
  66     interp = Parrot_new(NULL);
  67     if (!interp) {
  68         return 1;
  69     }
  70
  71     Parrot_io_eprintf(interp, "main\n");
  72
  73     Parrot_run_native(interp, the_test);
  74
  75     Parrot_io_eprintf(interp, "back\n");
  76     Parrot_exit(interp, 0);
  77     return 0;
  78 }
  79
  80 static opcode_t*
  81 the_test(Interp *interp,
  82          opcode_t *cur_op, opcode_t *start)
  83 {
  84     UNUSED(cur_op);
  85     UNUSED(start);
  86
  87     /* tests go here */
  88     Parrot_io_eprintf(interp, "ok\n");
  89
  90     return NULL; /* always return 0 or bad things may happen */
  91 }
  92
  93 CODE
  94 main
  95 ok
  96 back
  97 OUTPUT
  98
  99 # Local Variables:
 100 #   mode: cperl
 101 #   cperl-indent-level: 4
 102 #   fill-column: 100
 103 # End:
 104 # vim: expandtab shiftwidth=4: