|
1 /* |
|
2 * Copyright 2004-2006 Intel Corporation |
|
3 * |
|
4 * Licensed under the Apache License, Version 2.0 (the "License"); |
|
5 * you may not use this file except in compliance with the License. |
|
6 * You may obtain a copy of the License at |
|
7 * |
|
8 * http://www.apache.org/licenses/LICENSE-2.0 |
|
9 * |
|
10 * Unless required by applicable law or agreed to in writing, software |
|
11 * distributed under the License is distributed on an "AS IS" BASIS, |
|
12 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. |
|
13 * See the License for the specific language governing permissions and |
|
14 * limitations under the License. |
|
15 */ |
|
16 |
|
17 #ifdef HAVE_CONFIG_H |
|
18 # include <dtn-config.h> |
|
19 #endif |
|
20 |
|
21 #include "TestCommand.h" |
|
22 |
|
23 namespace dtn { |
|
24 |
|
25 TestCommand::TestCommand() |
|
26 : TclCommand("test"), id_(0) |
|
27 { |
|
28 add_to_help("segfault", "Generate a segfault."); |
|
29 add_to_help("panic", "Trigger a panic."); |
|
30 add_to_help("assert", "Trigger a false assert."); |
|
31 } |
|
32 |
|
33 void |
|
34 TestCommand::bind_vars() |
|
35 { |
|
36 bind_var(new oasys::IntOpt("id", &id_, "id", |
|
37 "The test id. (Default is 0.)")); |
|
38 bind_var(new oasys::StringOpt("initscript", &initscript_, "script", |
|
39 "The script to start.")); |
|
40 bind_var(new oasys::StringOpt("argv", &argv_, "args", |
|
41 "A string to pass as the argument to the script.")); |
|
42 } |
|
43 |
|
44 int |
|
45 TestCommand::exec(int argc, const char** argv, Tcl_Interp* interp) |
|
46 { |
|
47 (void)interp; |
|
48 |
|
49 if (argc < 2) { |
|
50 resultf("need a test subcommand"); |
|
51 return TCL_ERROR; |
|
52 } |
|
53 |
|
54 const char* cmd = argv[1]; |
|
55 if (!strcmp(cmd, "segfault")) |
|
56 { |
|
57 int* x = NULL; |
|
58 (void)*x; |
|
59 NOTREACHED; |
|
60 } |
|
61 else if (!strcmp(cmd, "panic")) |
|
62 { |
|
63 PANIC("panic"); |
|
64 } |
|
65 else if (!strcmp(cmd, "assert")) |
|
66 { |
|
67 ASSERT(0); |
|
68 } |
|
69 |
|
70 return TCL_ERROR; |
|
71 } |
|
72 |
|
73 } // namespace dtn |