diff --git a/TestSuite/usesunits/UsesInUnits3/1.txt b/TestSuite/usesunits/UsesInUnits3/1.txt new file mode 100644 index 000000000..f2ba8f84a --- /dev/null +++ b/TestSuite/usesunits/UsesInUnits3/1.txt @@ -0,0 +1 @@ +abc \ No newline at end of file diff --git a/TestSuite/usesunits/UsesInUnits3/u.pas b/TestSuite/usesunits/UsesInUnits3/u.pas new file mode 100644 index 000000000..1acb4397c --- /dev/null +++ b/TestSuite/usesunits/UsesInUnits3/u.pas @@ -0,0 +1,8 @@ +unit u; + +{$resource '1.txt'} +{$reference 'uui3_lib.dll'} + +begin + Assert('abc' = System.IO.StreamReader.Create(GetResourceStream('1.txt')).ReadToEnd); +end. \ No newline at end of file diff --git a/TestSuite/usesunits/UsesInUnits3/uui3_lib.dll b/TestSuite/usesunits/UsesInUnits3/uui3_lib.dll new file mode 100644 index 000000000..c2f6bbe8f Binary files /dev/null and b/TestSuite/usesunits/UsesInUnits3/uui3_lib.dll differ diff --git a/TestSuite/usesunits/UsesInUnits3/uui3_lib.pas b/TestSuite/usesunits/UsesInUnits3/uui3_lib.pas new file mode 100644 index 000000000..1a579a5cc --- /dev/null +++ b/TestSuite/usesunits/UsesInUnits3/uui3_lib.pas @@ -0,0 +1,3 @@ +library uui3_lib; + +end. \ No newline at end of file diff --git a/TestSuite/usesunits/uses_in3_derectives.pas b/TestSuite/usesunits/uses_in3_derectives.pas new file mode 100644 index 000000000..42bc7f13b --- /dev/null +++ b/TestSuite/usesunits/uses_in3_derectives.pas @@ -0,0 +1,3 @@ +uses u in 'UsesInUnits3\u'; + +begin end. \ No newline at end of file