mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-19 22:49:30 +02:00
codetools: dotted unit name tests
git-svn-id: trunk@54735 -
This commit is contained in:
parent
35aaed1cd7
commit
e4895d2fd0
4
.gitattributes
vendored
4
.gitattributes
vendored
@ -981,11 +981,11 @@ components/codetools/tests/laztests/bug28876.pas svneol=native#text/plain
|
||||
components/codetools/tests/laztests/bug28877.pas svneol=native#text/plain
|
||||
components/codetools/tests/laztests/delphi_autodereference1.pas svneol=native#text/plain
|
||||
components/codetools/tests/laztests/tdefaultproperty1.pas svneol=native#text/plain
|
||||
components/codetools/tests/laztests/tunit_order_test.pas svneol=native#text/plain
|
||||
components/codetools/tests/laztests/tunitdots.main.pas svneol=native#text/plain
|
||||
components/codetools/tests/laztests/unit_order_a.pas svneol=native#text/plain
|
||||
components/codetools/tests/laztests/unit_order_b.pas svneol=native#text/plain
|
||||
components/codetools/tests/laztests/unit_order_test.pas svneol=native#text/plain
|
||||
components/codetools/tests/laztests/unitdots.dot.pas svneol=native#text/plain
|
||||
components/codetools/tests/laztests/unitdots.main.pas svneol=native#text/plain
|
||||
components/codetools/tests/laztests/unitdots.pas svneol=native#text/plain
|
||||
components/codetools/tests/moduletests/fdt_arrays.pas svneol=native#text/plain
|
||||
components/codetools/tests/moduletests/fdt_basic.pas svneol=native#text/plain
|
||||
|
17
components/codetools/tests/laztests/tunit_order_test.pas
Normal file
17
components/codetools/tests/laztests/tunit_order_test.pas
Normal file
@ -0,0 +1,17 @@
|
||||
unit tunit_order_test;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
unit_order_a, unit_order_b;
|
||||
|
||||
implementation
|
||||
|
||||
begin
|
||||
unit_order_b.v{declaration:unit_order_b.v}:=3;
|
||||
v{declaration:unit_order_b.v}:=3;
|
||||
unit_order_a.v{declaration:unit_order_a.v}:='3';
|
||||
end.
|
||||
|
@ -1,4 +1,4 @@
|
||||
unit unitdots.main;
|
||||
unit tunitdots.main;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
@ -5,7 +5,7 @@ unit unit_order_a;
|
||||
interface
|
||||
|
||||
var
|
||||
unit_order_b: char;
|
||||
v: char;
|
||||
|
||||
|
||||
implementation
|
||||
|
@ -5,7 +5,7 @@ unit unit_order_b;
|
||||
interface
|
||||
|
||||
var
|
||||
unit_order_a: integer;
|
||||
v: integer;
|
||||
|
||||
|
||||
implementation
|
||||
|
@ -1,16 +0,0 @@
|
||||
unit unit_order_test;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
unit_order_a, unit_order_b;
|
||||
|
||||
implementation
|
||||
|
||||
begin
|
||||
unit_order_b.unit_order_a{declaration:unit_order_b.unit_order_a}:=3;
|
||||
unit_order_a.unit_order_b{declaration:unit_order_a.unit_order_b}:='3';
|
||||
end.
|
||||
|
Loading…
Reference in New Issue
Block a user