# Copyright (C) 2008 Sun Microsystems, Inc. All rights reserved. # Use is subject to license terms. # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; version 2 of the License. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 # USA use strict; use lib 'lib'; use lib '../lib'; use Data::Dumper; use GenTest::Grammar; use GenTest::Generator::FromGrammar; use Test::More tests => 2; my $grammar = GenTest::Grammar->new( grammar_string => ' query: definition1; query: definition2; ' ); ok((not defined $grammar), 'grammar_doubledefine'); my $generator = GenTest::Generator::FromGrammar->new( grammar_file => 't/grammar-doubledefine.yy' ); ok((not defined $generator), 'generator_doubledefine');