class TestCase::UseResource::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;
}
}