#!/usr/bin/perl -w

use Test::More tests => 7;

use BibTeX::Parser;

my %strings = ();

$_ = 1234;
parse_ok("parse digit string");

$_ = '"simple double quoted string"';
parse_is("simple double quoted string", "- double quoted string");

$_ = '"double quotes { with embeded } brackets"';
parse_is("double quotes { with embeded } brackets", "- with embeded brackets");

$_ = '"string 1 " # "string 2"';
parse_is("string 1 string 2", "- concatenation");

$strings{test}  = "string";
$strings{other} = "text";

$_ = "test";
parse_is("string", "- string variable");

$_ = "test # other";
parse_is("stringtext", "- concatenation of string variables");

$_ = '"M{\"{u}}nchen"';
parse_is('M{\"{u}}nchen', "- escaped quote");

sub parse_ok {
	is(BibTeX::Parser::_parse_string(\%strings), $_, shift);
}

sub parse_is {
	is(BibTeX::Parser::_parse_string(\%strings), shift, shift);
}