#!/usr/bin/perl
use Test::More tests => 2;
use_ok("Text::Ngrams");
require 't/auxfunctions.pl';
my $ng = Text::Ngrams->new(windowsize=>2, type=>'word');
$ng->process_text('The brown quick fox, brown fox, brown fox ...');
#putfile('t/03.out', normalize($ng->to_string( 'orderby'=>'ngram' )));
isn('t/03.out', $ng->to_string( 'orderby'=>'ngram' ));