Commits

Shlomi Fish committed 2f0e03c

More tests pass

Comments (0)

Files changed (1)

Graph-Easy/t/easypm.t

 
 $graph->set_attributes ('node.cities', { color => '#0000ff' } );
 
-good_css($graph, 
+good_css($graph,
   'table.graph42 .node_cities',
   'table.graph42 .node,table.graph42 .node_anon,table.graph42 .node_cities'
   );
 
 ( Cities )
 
-[ Bonn ] --> [ Berlin ]
 [ Berlin ] --> [ Frankfurt ]
 [ Berlin ] --> [ Potsdam ]
+[ Bonn ] --> [ Berlin ]
+[ Cottbus ]
+[ Dresden ]
 [ Frankfurt ] --> [ Dresden ]
 [ Potsdam ] --> [ Cottbus ]
 HERE
-, 'with empty group Cities'); 
+, 'with empty group Cities');
 
 $node->add_to_group($group);
 
   [ Bonn ]
 )
 
-[ Bonn ] --> [ Berlin ]
 [ Berlin ] --> [ Frankfurt ]
 [ Berlin ] --> [ Potsdam ]
+[ Bonn ] --> [ Berlin ]
+[ Cottbus ]
+[ Dresden ]
 [ Frankfurt ] --> [ Dresden ]
 [ Potsdam ] --> [ Cottbus ]
 HERE
 $graph = Graph::Easy->new('[A]->[B]->[C]->[D]');
 
 $graph->merge_nodes( 'A', 'B' );
-is ($graph->as_txt(), "[ A ] --> [ C ]\n[ C ] --> [ D ]\n", 'merge worked');
+is ($graph->as_txt(), "[ A ] --> [ C ]\n[ C ] --> [ D ]\n[ D ]\n", 'merge worked');
 
 $graph->merge_nodes( 'A', 'C', ' ' );
-is ($graph->as_txt(), "[ A ] { label: A C; }\n\n[ A ] --> [ D ]\n", 'merge worked');
+is ($graph->as_txt(), "[ A ] { label: A C; }\n\n[ A ] --> [ D ]\n[ D ]\n", 'merge worked');
 
 $graph->merge_nodes( 'A', 'D', ' \n ' );
 is ($graph->as_txt(), "[ A ] { label: A C \\n D; }\n\n", 'merge worked');