#!/usr/bin/perl -w
use strict; 

use XML::Twig;
use Test::More tests => 1;

$/="\n\n";
(my $input= <DATA>)=~ s{\\t}{\t}g;           # I used \t in the DATA section to avoid problems
(my $expected_output= <DATA>)=~ s{\n\s*}{}g; # remove extra formating


my $t= XML::Twig->new( pretty_print => 'indented')
                ->parse( $input);

$t->root->mark( qr/^\n*(.*)\t/s, 'first');    # wrap text before a tab
$t->root->wrap_children( '<abc>' => 'second') # wrap remaining abc children
        ->strip_att( 'id');                   # strip extra id added by wrap_children

(my $output= $t->sprint)=~ s{\n\s*}{}g;

ok( $output eq $expected_output);

__DATA__
<ext>
abc\t<abc><p>ahgkslkjs</p>
<p>hai</p></abc>
abc\t<abc><p>ahgkslkjs</p></abc>
</ext>

<ext>
  <first>abc</first>
  <second>
    <abc>
      <p>ahgkslkjs</p>
      <p>hai</p>
    </abc>
  </second>
  <first>abc</first>
  <second>
    <abc>
      <p>ahgkslkjs</p>
    </abc>
  </second>
</ext>