#!/usr/bin/perl

use strict;
use warnings;
use Test::More tests => 5;
use Parse::RecDescent;

my $p=Parse::RecDescent->new(q{
rec:  int   elem("$item[1]")
int:  /\d+/
elem: /\S+/
});
ok($p->rec('0'));
ok($p->rec('1 foo'));
ok($p->rec('2 foo bar'));
ok(!$p->rec('1'));
ok(!$p->rec('1 foo bar'));