#!/usr/bin/perl -w
use strict;
BEGIN {
  unshift @INC,'../lib';
}

use Test::More tests=>3;

use GraphViz::Data::Structure;

my $gvds;
my($foo, $s);

$gvds = GraphViz::Data::Structure->new(1, Fuzz=>4);

$foo = undef;
$s = $gvds->_dot_escape($foo);
is($s, "undef");

$foo = "this is way too long";
$s = $gvds->_dot_escape($foo);
is($s, "this ...");

$foo="too\nlong\nand newlines";
$s = $gvds->_dot_escape($foo);
is($s, "too ...");