#!/usr/bin/perl -w
use strict;
use Test::More tests => 2;
use Graph::Subgraph;
my $G = Graph->new(directed=>0, vertices => [1..5]);
is ($G->subgraph, "", "no args => empty subgraph");
is ($G->subgraph(1..3), $G->subgraph([1..3]), "list == 1 array arg");