diff options
Diffstat (limited to 'erts/test/erlc_SUITE_data')
-rw-r--r-- | erts/test/erlc_SUITE_data/include/erl_test.hrl | 19 | ||||
-rw-r--r-- | erts/test/erlc_SUITE_data/src/BAD-MIB.mib | 1 | ||||
-rw-r--r-- | erts/test/erlc_SUITE_data/src/GOOD-MIB.mib | 39 | ||||
-rw-r--r-- | erts/test/erlc_SUITE_data/src/erl_test_bad.erl | 22 | ||||
-rw-r--r-- | erts/test/erlc_SUITE_data/src/erl_test_ok.erl | 29 | ||||
-rw-r--r-- | erts/test/erlc_SUITE_data/src/start_bad.script | 1 | ||||
-rw-r--r-- | erts/test/erlc_SUITE_data/src/start_ok.script | 207 | ||||
-rw-r--r-- | erts/test/erlc_SUITE_data/src/yecc_test_bad.yrl | 32 | ||||
-rw-r--r-- | erts/test/erlc_SUITE_data/src/yecc_test_ok.yrl | 29 |
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. |