use Test::More tests => 20;
use Graph;
use strict;
my $g = Graph::Undirected->new;
while (<DATA>) {
chomp;
my ($v1,$v2) = split ',';
$g->add_edge($v1, $v2);
}
my @rts = sort $g->articulation_points;
is("@rts", "EBI-621930 EBI-622140 EBI-622203 EBI-622235 EBI-622264 EBI-622281 EBI-622306 EBI-622382") for 1..20;
__END__
EBI-622148,EBI-622235
EBI-592020,EBI-592003
EBI-621976,EBI-621986
EBI-622374,EBI-622432
EBI-622165,EBI-592003
EBI-592041,EBI-592136
EBI-592365,EBI-592083
EBI-592058,EBI-621940
EBI-621930,EBI-621968
EBI-621903,EBI-621986
EBI-622174,EBI-622475
EBI-622227,EBI-622416
EBI-622203,EBI-622211
EBI-592343,EBI-621930
EBI-622466,EBI-621968
EBI-592343,EBI-622382
EBI-592343,EBI-621986
EBI-622194,EBI-622390
EBI-592020,EBI-621968
EBI-592020,EBI-621930
EBI-592343,EBI-621940
EBI-622036,EBI-622448
EBI-621986,EBI-622087
EBI-592020,EBI-592304
EBI-622357,EBI-622432
EBI-622131,EBI-622148
EBI-622298,EBI-622466
EBI-621976,EBI-621930
EBI-622448,EBI-622457
EBI-622211,EBI-622349
EBI-621986,EBI-621940
EBI-592058,EBI-592003
EBI-592041,EBI-621921
EBI-592041,EBI-622114
EBI-622096,EBI-621930
EBI-592041,EBI-621949
EBI-622440,EBI-622475
EBI-622264,EBI-622281
EBI-622140,EBI-622298
EBI-622017,EBI-621968
EBI-622366,EBI-622475
EBI-622148,EBI-622484
EBI-622235,EBI-622298
EBI-622264,EBI-622432
EBI-622174,EBI-622382
EBI-622211,EBI-622390
EBI-622272,EBI-622281
EBI-592041,EBI-621940
EBI-622219,EBI-622324
EBI-622067,EBI-622076
EBI-622289,EBI-622382
EBI-621903,EBI-621930
EBI-622306,EBI-622314
EBI-622165,EBI-622211
EBI-592083,EBI-621968
EBI-622235,EBI-622247
EBI-622382,EBI-622399
EBI-622011,EBI-622475
EBI-622349,EBI-622374
EBI-592365,EBI-621903
EBI-621912,EBI-622036
EBI-621986,EBI-621986
EBI-622382,EBI-621949
EBI-622382,EBI-621968
EBI-622067,EBI-592003
EBI-621940,EBI-621968
EBI-621986,EBI-622017
EBI-592058,EBI-592020
EBI-592365,EBI-622067
EBI-622211,EBI-622416
EBI-592365,EBI-621940
EBI-622027,EBI-621940
EBI-622211,EBI-622289
EBI-622165,EBI-622174
EBI-622027,EBI-622382
EBI-622219,EBI-622475
EBI-592136,EBI-622382
EBI-622374,EBI-622475
EBI-622332,EBI-622475
EBI-592041,EBI-621930
EBI-621986,EBI-621930
EBI-622475,EBI-621968
EBI-622131,EBI-622157
EBI-592083,EBI-592304
EBI-622194,EBI-622432
EBI-622122,EBI-622140
EBI-622203,EBI-622349
EBI-622227,EBI-622390
EBI-621986,EBI-621921
EBI-592083,EBI-621930
EBI-621986,EBI-592003
EBI-622185,EBI-622382
EBI-592041,EBI-592041
EBI-622140,EBI-622448
EBI-622466,EBI-592003
EBI-592020,EBI-622057
EBI-592041,EBI-592304
EBI-621986,EBI-592058
EBI-621976,EBI-621940
EBI-621912,EBI-622067
EBI-592083,EBI-622067
EBI-622036,EBI-622475
EBI-622067,EBI-621949
EBI-622194,EBI-622475
EBI-622341,EBI-622382
EBI-592041,EBI-621968
EBI-592365,EBI-621912
EBI-622194,EBI-622289
EBI-592365,EBI-622165
EBI-622324,EBI-622332
EBI-592058,EBI-621968
EBI-622457,EBI-622466
EBI-621949,EBI-621968
EBI-622148,EBI-622165
EBI-621986,EBI-592304
EBI-622211,EBI-622484
EBI-622255,EBI-622382
EBI-622298,EBI-622448
EBI-622140,EBI-622475
EBI-622165,EBI-622194
EBI-622324,EBI-621968
EBI-622211,EBI-622432
EBI-622036,EBI-622382
EBI-622067,EBI-621930
EBI-622036,EBI-592003
EBI-622067,EBI-621968
EBI-622148,EBI-622475
EBI-592304,EBI-621940
EBI-592041,EBI-592020
EBI-622235,EBI-622448
EBI-622211,EBI-622382
EBI-621986,EBI-622114
EBI-592058,EBI-622067
EBI-622057,EBI-622382
EBI-622194,EBI-622255
EBI-622017,EBI-622382
EBI-622366,EBI-622432
EBI-621993,EBI-621940
EBI-622165,EBI-622219
EBI-622067,EBI-592304
EBI-621912,EBI-621968
EBI-622382,EBI-592003
EBI-622227,EBI-622382
EBI-592041,EBI-621986
EBI-622017,EBI-621940
EBI-621986,EBI-592083
EBI-622475,EBI-592003
EBI-622211,EBI-622475
EBI-622264,EBI-622349
EBI-622349,EBI-622357
EBI-592041,EBI-592058
EBI-592083,EBI-621912
EBI-592304,EBI-622382
EBI-592041,EBI-622036
EBI-622219,EBI-622416
EBI-622432,EBI-622440
EBI-622140,EBI-622157
EBI-592041,EBI-622027
EBI-622140,EBI-622148
EBI-622087,EBI-621930
EBI-621986,EBI-621968
EBI-622298,EBI-622475
EBI-622203,EBI-622432
EBI-621921,EBI-622382
EBI-592083,EBI-621940
EBI-592365,EBI-621921
EBI-622382,EBI-622408
EBI-592365,EBI-621986
EBI-592083,EBI-592083
EBI-622324,EBI-622341
EBI-592365,EBI-622475
EBI-592041,EBI-592003
EBI-622122,EBI-622131
EBI-622366,EBI-622382
EBI-622211,EBI-621968
EBI-622140,EBI-622466
EBI-622298,EBI-622382
EBI-622011,EBI-622466
EBI-592041,EBI-622017
EBI-622165,EBI-622185
EBI-622131,EBI-622448
EBI-622165,EBI-622227
EBI-622264,EBI-622475
EBI-622194,EBI-622484
EBI-622203,EBI-622484
EBI-622194,EBI-622382
EBI-622448,EBI-621968
EBI-622219,EBI-622448
EBI-622227,EBI-622484
EBI-622165,EBI-621968
EBI-622011,EBI-622382
EBI-621912,EBI-592020
EBI-622106,EBI-621930
EBI-621940,EBI-621949
EBI-592041,EBI-622096
EBI-621968,EBI-592003
EBI-622227,EBI-622466
EBI-621986,EBI-622096
EBI-621976,EBI-592041
EBI-622332,EBI-622382
EBI-622219,EBI-622484
EBI-622203,EBI-622382
EBI-592041,EBI-592083
EBI-621986,EBI-622076
EBI-622357,EBI-622475
EBI-621912,EBI-621940
EBI-622211,EBI-622466
EBI-622036,EBI-622324
EBI-622174,EBI-622432
EBI-622357,EBI-622382
EBI-592343,EBI-622067
EBI-622264,EBI-621968
EBI-622165,EBI-622203
EBI-622349,EBI-622366
EBI-592041,EBI-622067
EBI-622448,EBI-592003
EBI-622227,EBI-622289
EBI-622185,EBI-622390
EBI-621930,EBI-592003
EBI-621903,EBI-592041
EBI-622011,EBI-621940
EBI-621930,EBI-621949
EBI-592041,EBI-621912
EBI-622087,EBI-622382
EBI-621986,EBI-621912
EBI-592020,EBI-621949
EBI-622203,EBI-622306
EBI-622157,EBI-622235
EBI-622440,EBI-622484
EBI-592365,EBI-592020
EBI-592041,EBI-622087
EBI-622011,EBI-592020
EBI-621930,EBI-622264
EBI-592365,EBI-622382
EBI-622211,EBI-622255
EBI-622366,EBI-622484
EBI-621930,EBI-621930
EBI-622332,EBI-622448
EBI-622194,EBI-622349
EBI-622017,EBI-621930
EBI-622174,EBI-622349
EBI-621930,EBI-592304
EBI-622408,EBI-622475
EBI-622036,EBI-622466
EBI-621930,EBI-621940
EBI-622227,EBI-622255
EBI-592083,EBI-592003
EBI-621986,EBI-621949
EBI-592365,EBI-621930
EBI-622219,EBI-622382
EBI-622227,EBI-622475
EBI-621903,EBI-621993
EBI-621940,EBI-592003
EBI-622298,EBI-622324
EBI-592083,EBI-592020
EBI-621921,EBI-592304
EBI-592343,EBI-592020
EBI-621976,EBI-622382
EBI-622140,EBI-622424
EBI-622203,EBI-622475