t/foreign/Fun/slurpy-syntax-errors.t

   1 #!perl
   2 use strict;
   3 use warnings FATAL => 'all';
   4 use Test::More;
   5
   6 use Function::Parameters;
   7
   8 {
   9     eval 'fun ( $foo, @bar, $baz ) { return [] }';
  10     ok $@, '... got an error';
  11 }
  12
  13 {
  14     eval 'fun ( $foo, %bar, $baz ) { return {} }';
  15     ok $@, '... got an error';
  16 }
  17
  18 {
  19     eval 'fun ( $foo, @bar, %baz ) { return [] }';
  20     ok $@, '... got an error';
  21 }
  22
  23 {
  24     eval 'fun ( $foo, %bar, @baz ) { return {} }';
  25     ok $@, '... got an error';
  26 }
  27
  28 done_testing;