#!perl -w
use strict;
use warnings;
use Test::More;
eval 'use Test::CGI::Untaint';
if($@) {
plan skip_all => 'Test::CGI::Untaint required for testing extraction handler';
} else {
plan tests => 4;
use_ok('CGI::Untaint::Twitter');
is_extractable('nigelhorne', 'nigelhorne', 'Twitter');
is_extractable('@nigelhorne', 'nigelhorne', 'Twitter');
unextractable('&^&', 'Twitter');
}