Monotone-Parent: ab33bf455396ef05789524fb34a58f5abdc8ca98

Monotone-Revision: 184ea8d5f44aa0290cfcfc13737469283f4e77ea

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2007-12-13T19:26:47
Monotone-Branch: ca.inverse.sogo

UI/MainUI/SOGoRootPage.m

@@ -19,6 +19,8 @@
   02111-1307, USA.
 */
 
+#import <Foundation/NSException.h>
+
 #import <NGObjWeb/WOApplication.h>
 #import <NGObjWeb/WOContext.h>
 #import <NGObjWeb/WOCookie.h>
@@ -35,6 +37,12 @@
 
 #import "SOGoRootPage.h"
 
+@interface SOGoRootPage (crashAdditions)
+
+- (void) segfault;
+
+@end
+
 @implementation SOGoRootPage
 
 - (void) dealloc
@@ -110,4 +118,27 @@
   return YES;
 }
 
+- (id <WOActionResults>) crashAction
+{
+  [self segfault];
+
+  return nil;
+}
+
+- (id <WOActionResults>) exceptionAction
+{
+  return (id <WOActionResults>)
+    [NSException exceptionWithName: @"ExceptionAction"
+		 reason: @"This exception is brought to you by SOGo"
+		 userInfo: nil];
+}
+
+- (id <WOActionResults>) raisedExceptionAction
+{
+  [NSException raise: @"ExceptionAction"
+	       format: @"This exception is brought to you by SOGo"];
+
+  return nil;
+}
+
 @end /* SOGoRootPage */