aboutsummaryrefslogtreecommitdiffstats
path: root/erts/test/erlc_SUITE_data
diff options
context:
space:
mode:
Diffstat (limited to 'erts/test/erlc_SUITE_data')
-rw-r--r--erts/test/erlc_SUITE_data/include/erl_test.hrl19
-rw-r--r--erts/test/erlc_SUITE_data/src/BAD-MIB.mib1
-rw-r--r--erts/test/erlc_SUITE_data/src/GOOD-MIB.mib39
-rw-r--r--erts/test/erlc_SUITE_data/src/erl_test_bad.erl22
-rw-r--r--erts/test/erlc_SUITE_data/src/erl_test_ok.erl29
-rw-r--r--erts/test/erlc_SUITE_data/src/start_bad.script1
-rw-r--r--erts/test/erlc_SUITE_data/src/start_ok.script207
-rw-r--r--erts/test/erlc_SUITE_data/src/yecc_test_bad.yrl32
-rw-r--r--erts/test/erlc_SUITE_data/src/yecc_test_ok.yrl29
9 files changed, 379 insertions, 0 deletions
diff --git a/erts/test/erlc_SUITE_data/include/erl_test.hrl b/erts/test/erlc_SUITE_data/include/erl_test.hrl
new file mode 100644
index 0000000000..fd89cb2f60
--- /dev/null
+++ b/erts/test/erlc_SUITE_data/include/erl_test.hrl
@@ -0,0 +1,19 @@
+%%
+%% %CopyrightBegin%
+%%
+%% Copyright Ericsson AB 1997-2009. All Rights Reserved.
+%%
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%%
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%%
+%% %CopyrightEnd%
+%%
+-record(person, {name, shoe_size}).
diff --git a/erts/test/erlc_SUITE_data/src/BAD-MIB.mib b/erts/test/erlc_SUITE_data/src/BAD-MIB.mib
new file mode 100644
index 0000000000..93bde356f4
--- /dev/null
+++ b/erts/test/erlc_SUITE_data/src/BAD-MIB.mib
@@ -0,0 +1 @@
+All mibs are bad!
diff --git a/erts/test/erlc_SUITE_data/src/GOOD-MIB.mib b/erts/test/erlc_SUITE_data/src/GOOD-MIB.mib
new file mode 100644
index 0000000000..af350ba891
--- /dev/null
+++ b/erts/test/erlc_SUITE_data/src/GOOD-MIB.mib
@@ -0,0 +1,39 @@
+ GOOD-MIB DEFINITIONS ::= BEGIN
+
+ IMPORTS
+ mgmt
+ FROM RFC1155-SMI
+ OBJECT-TYPE
+ FROM RFC-1212;
+
+
+ -- textual conventions
+
+ DisplayString ::=
+ OCTET STRING
+
+ -- This data type is used to model textual information taken
+ -- from the NVT ASCII character set. By convention, objects
+ -- with this syntax are declared as having
+ -- the System group
+
+ -- Implementation of the System group is mandatory for all
+ -- systems. If an agent is not configured to have a value
+ -- for any of these variables, a string of length 0 is
+ -- returned.
+
+ sysDescr OBJECT-TYPE
+ SYNTAX DisplayString (SIZE (0..255))
+ ACCESS read-only
+ STATUS mandatory
+
+ DESCRIPTION
+ "A textual description of the entity. This value
+ should include the full name and version
+ identification of the system's hardware type,
+ software operating-system, and networking
+ software. It is mandatory that this only contain
+ printable ASCII characters."
+ ::= { mgmt 1 }
+
+ END
diff --git a/erts/test/erlc_SUITE_data/src/erl_test_bad.erl b/erts/test/erlc_SUITE_data/src/erl_test_bad.erl
new file mode 100644
index 0000000000..fb62f835ca
--- /dev/null
+++ b/erts/test/erlc_SUITE_data/src/erl_test_bad.erl
@@ -0,0 +1,22 @@
+%%
+%% %CopyrightBegin%
+%%
+%% Copyright Ericsson AB 1997-2009. All Rights Reserved.
+%%
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%%
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%%
+%% %CopyrightEnd%
+%%
+
+-module(erl_test_bad).
+
+-export([non_existing/1]).
diff --git a/erts/test/erlc_SUITE_data/src/erl_test_ok.erl b/erts/test/erlc_SUITE_data/src/erl_test_ok.erl
new file mode 100644
index 0000000000..50fa063a94
--- /dev/null
+++ b/erts/test/erlc_SUITE_data/src/erl_test_ok.erl
@@ -0,0 +1,29 @@
+%%
+%% %CopyrightBegin%
+%%
+%% Copyright Ericsson AB 1997-2009. All Rights Reserved.
+%%
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%%
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%%
+%% %CopyrightEnd%
+%%
+
+-module(erl_test_ok).
+-export([shoe_size/1]).
+
+-include("erl_test.hrl").
+
+shoe_size(#person{shoe_size=Size}) ->
+ Size.
+
+foo() ->
+ ok.
diff --git a/erts/test/erlc_SUITE_data/src/start_bad.script b/erts/test/erlc_SUITE_data/src/start_bad.script
new file mode 100644
index 0000000000..0cb903fabd
--- /dev/null
+++ b/erts/test/erlc_SUITE_data/src/start_bad.script
@@ -0,0 +1 @@
+script,{"OTP APN 181 01","NT"}
diff --git a/erts/test/erlc_SUITE_data/src/start_ok.script b/erts/test/erlc_SUITE_data/src/start_ok.script
new file mode 100644
index 0000000000..4cd89f0439
--- /dev/null
+++ b/erts/test/erlc_SUITE_data/src/start_ok.script
@@ -0,0 +1,207 @@
+{script,{"OTP APN 181 01","NT"},
+ [{preLoaded,[init,erl_prim_loader]},
+ {progress,preloaded},
+ {path,["$ROOT/lib/kernel/ebin",
+ "$ROOT/lib/stdlib/ebin"]},
+ {primLoad,[error_handler,
+ ets,
+ lib,
+ lists,
+ heart,
+ application_controller,
+ application_master,
+ application,
+ auth,
+ c,
+ calendar,
+ code,
+ erlang,
+ erl_distribution,
+ erl_parse,
+ erl_scan,
+ io_lib,
+ io_lib_format,
+ io_lib_fread,
+ io_lib_pretty,
+ error_logger,
+ file,
+ filename,
+ os,
+ gen,
+ gen_event,
+ gen_server,
+ global,
+ kernel,
+ net_kernel,
+ proc_lib,
+ rpc,
+ supervisor,
+ sys]},
+ {kernel_load_completed},
+ {progress,kernel_load_completed},
+ {primLoad,[group,
+ user,
+ user_drv,
+ kernel_config,
+ net,
+ erl_boot_server,
+ net_adm]},
+ {primLoad,[math,
+ random,
+ ordsets,
+ shell_default,
+ timer,
+ gen_fsm,
+ pg,
+ unix,
+ dict,
+ pool,
+ string,
+ digraph,
+ io,
+ epp,
+ queue,
+ erl_eval,
+ erl_id_trans,
+ shell,
+ erl_internal,
+ erl_lint,
+ edlin,
+ erl_pp,
+ error_logger_file_h,
+ error_logger_tty_h,
+ log_mf_h,
+ dets,
+ disk_log,
+ regexp,
+ slave,
+ supervisor_bridge]},
+ {progress,modules_loaded},
+ {kernelProcess,heart,{heart,start,[]}},
+ {kernelProcess,error_logger,{error_logger,start_link,[]}},
+ {kernelProcess,application_controller,
+ {application_controller,
+ start,
+ [{application,
+ kernel,
+ [{description,"ERTS CXC 138 10"},
+ {vsn,"NT"},
+ {modules,
+ [{application,1},
+ {erlang,1},
+ {group,1},
+ {rpc,1},
+ {application_controller,1},
+ {error_handler,1},
+ {heart,1},
+ {application_master,1},
+ {error_logger,1},
+ {init,1},
+ {user,1},
+ {auth,1},
+ {kernel,1},
+ {user_drv,1},
+ {code,1},
+ {kernel_config,1},
+ {net,1},
+ {erl_boot_server,1},
+ {erl_prim_loader,1},
+ {file,1},
+ {net_adm,1},
+ {erl_distribution,1},
+ {global,1},
+ {net_kernel,1}]},
+ {registered,
+ [init,
+ erl_prim_loader,
+ heart,
+ error_logger,
+ application_controller,
+ kernel_sup,
+ kernel_config,
+ net_sup,
+ net_kernel,
+ auth,
+ code_server,
+ file_server,
+ boot_server,
+ global_name_server,
+ rex,
+ user]},
+ {applications,[]},
+ {env,
+ [{error_logger,tty},
+ {os, nt}]},
+ {maxT,infinity},
+ {maxP,infinity},
+ {mod,{kernel,[]}}]}]}},
+ {progress,init_kernel_started},
+ {apply,{application,load,
+ [{application,
+ stdlib,
+ [{description,"ERTS CXC 138 10"},
+ {vsn,"NT"},
+ {modules,
+ [{c,1},
+ {gen,1},
+ {io_lib_format,1},
+ {math,1},
+ {random,1},
+ {sys,1},
+ {calendar,1},
+ {gen_event,1},
+ {io_lib_fread,1},
+ {ordsets,1},
+ {shell_default,1},
+ {timer,1},
+ {gen_fsm,1},
+ {io_lib_pretty,1},
+ {pg,1},
+ {slave,1},
+ {unix,1},
+ {dict,1},
+ {gen_server,1},
+ {lib,1},
+ {pool,1},
+ {string,1},
+ {digraph,1},
+ {io,1},
+ {lists,1},
+ {proc_lib,1},
+ {supervisor,1},
+ {epp,1},
+ {io_lib,1},
+ {log_mf_h,1},
+ {queue,1},
+ {erl_eval,1},
+ {erl_id_trans,1},
+ {shell,1},
+ {erl_internal,1},
+ {erl_lint,1},
+ {error_logger_file_h,1},
+ {erl_parse,1},
+ {error_logger_tty_h,1},
+ {edlin,1},
+ {erl_pp,1},
+ {ets,1},
+ {dets,1},
+ {disk_log,1},
+ {regexp,1},
+ {erl_scan,1},
+ {supervisor_bridge,1}]},
+ {registered,
+ [timer_server,
+ rsh_starter,
+ take_over_monitor,
+ pool_master,
+ dets,
+ disk_log]},
+ {applications,[kernel]},
+ {env,[]},
+ {maxT,infinity},
+ {maxP,infinity}]}]}},
+ {progress,applications_loaded},
+ {apply,{application,start,[kernel,permanent]}},
+ {apply,{application,start,[stdlib,permanent]}},
+ {apply,{c,erlangrc,[]}},
+ {progress,started}]}.
diff --git a/erts/test/erlc_SUITE_data/src/yecc_test_bad.yrl b/erts/test/erlc_SUITE_data/src/yecc_test_bad.yrl
new file mode 100644
index 0000000000..409718e24c
--- /dev/null
+++ b/erts/test/erlc_SUITE_data/src/yecc_test_bad.yrl
@@ -0,0 +1,32 @@
+%%
+%% %CopyrightBegin%
+%%
+%% Copyright Ericsson AB 1997-2009. All Rights Reserved.
+%%
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%%
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%%
+%% %CopyrightEnd%
+%%
+
+foo
+
+Nonterminals
+form.
+
+Terminals
+atom dot.
+
+Rootsymbol form.
+
+form -> atom dot : '$1'.
+
+Erlang code.
diff --git a/erts/test/erlc_SUITE_data/src/yecc_test_ok.yrl b/erts/test/erlc_SUITE_data/src/yecc_test_ok.yrl
new file mode 100644
index 0000000000..a96085ac2d
--- /dev/null
+++ b/erts/test/erlc_SUITE_data/src/yecc_test_ok.yrl
@@ -0,0 +1,29 @@
+%%
+%% %CopyrightBegin%
+%%
+%% Copyright Ericsson AB 1997-2009. All Rights Reserved.
+%%
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%%
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%%
+%% %CopyrightEnd%
+%%
+Nonterminals
+form.
+
+Terminals
+atom dot.
+
+Rootsymbol form.
+
+form -> atom dot : '$1'.
+
+Erlang code.