{
  eval { Complex_2d->new_array_from_pairs([(double)1,2, 3,4]); }
  
  unless ($@) {
    return 0;
  }
}

{
  eval { Complex_2d->new_array_from_re_array([(double)1,2, 3,4]); }
  
  unless ($@) {
    return 0;
  }
}

{
  eval { Complex_2d->new_array_from_im_array([(double)1,2, 3,4]); }
  
  unless ($@) {
    return 0;
  }
}

{
  eval { Complex_2d->to_re_array([(double)1,2, 3,4]); }
  
  unless ($@) {
    return 0;
  }
}

{
  eval { Complex_2d->to_im_array([(double)1,2, 3,4]); }
  
  unless ($@) {
    return 0;
  }
}