class TestCase::UseResource::Basic {

  use TestCase::Resource::Mylib1;
  
  native static method mylib1_source1_func1 : string ();
  native static method mylib1_source1_func2 : string ();
  native static method mylib1_source2_func1 : string ();
  native static method mylib1_source2_func2 : string ();
  
  static method test : int () {
    
    {
      my $result = &mylib1_source1_func1;
      unless ($result eq "Mylib1__mylib1_source1_func1") {
        return 0;
      }
    }

    {
      my $result = &mylib1_source1_func2;
      unless ($result eq "Mylib1__mylib1_source1_func2") {
        return 0;
      }
    }
    
    {
      my $result = &mylib1_source2_func1;
      unless ($result eq "Mylib1__mylib1_source2_func1") {
        return 0;
      }
    }

    {
      my $result = &mylib1_source2_func2;
      unless ($result eq "Mylib1__mylib1_source2_func2") {
        return 0;
      }
    }
    
    return 1;
  }
}