Commit bb6dc792 authored by jhugues's avatar jhugues

* Update testsuite after previous commit



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@4586 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 08636a6d
......@@ -270,6 +270,8 @@ examples/petri_net/robot/robot.aadl
examples/real/security/all.aadl
examples/real/resources/all.aadl
examples/real/safety/model.aadl
tests/test_identifier/t.aadl
tests/example_04_03/t.aadl
AADL_VERSION=-aadlv2
package FileSystem
public
data Directory
end Directory;
data implementation Directory.hashed
end Directory.hashed;
end FileSystem;
package App
public
data result_type
end result_type;
data Distance
end Distance;
end App;
package TypeExample
public
with FileSystem;
with App;
system File_System
features
-- access to a data component
root: requires data access FileSystem::Directory.hashed;
end File_System;
process Application
features
-- a data out port
result: out data port App::result_type;
home: requires data access FileSystem::Directory.hashed;
end Application;
thread Calculate
prototypes
-- A data type to be used as type for the input and result port
data_type: data;
features
input: in data port data_type;
result: out data port data_type;
end Calculate;
thread Compute_Distance extends Calculate (data_type => data App::Distance)
end Compute_Distance;
end TypeExample;
package FileSystem
public
data Directory
end Directory;
data implementation Directory.hashed
end Directory.hashed;
end FileSystem;
package App
public
data result_type
end result_type;
data Distance
end Distance;
end App;
package TypeExample
public
with FileSystem;
with App;
system File_System
features
root : requires data access FileSystem::Directory.hashed;
end File_System;
process Application
features
result : out data port App::result_type;
home : requires data access FileSystem::Directory.hashed;
end Application;
thread Calculate
prototypes
data_type : data;
features
input : in data port data_type;
result : out data port data_type;
end Calculate;
thread Compute_Distance extends Calculate
( data_type => data App::Distance )
end Compute_Distance;
end TypeExample;
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment