emacs: check in test file for failing mac build output

This allows you to run the test, but we don't parse the output correctly yet.

Review URL: http://codereview.chromium.org/5569003

git-svn-id: svn://svn.chromium.org/chrome/trunk/src@68201 0039d316-1c4b-4281-b951-d872f2087c98

1 files changed, 13 insertions, 5 deletions

diff --git a/tools/emacs/trybot.el b/tools/emacs/trybot.el
index 6ced9b6..b448799 100644
--- a/tools/emacs/trybot.el
+++ b/tools/emacs/trybot.el
@@ -8,7 +8,7 @@
 ;
 ; To hack on this,
 ; M-x eval-buffer
-; M-x trybot-test
+; M-x trybot-test-win  or  M-x trybot-test-mac
 
 (defvar chrome-root nil
   "Path to the src/ directory of your Chrome checkout.")
@@ -74,18 +74,26 @@
   ;; Switch into compilation mode.
   (compilation-mode))
 
-(defun trybot-test ()
-  "Load our test data and do the trybot parse on it."
-  (interactive)
+(defun trybot-test (filename)
+  "Load the given test data filename and do the trybot parse on it."
 
   (switch-to-buffer (get-buffer-create "*trybot-test*"))
   (let ((inhibit-read-only t))
     (erase-buffer)
     (insert-file-contents-literally
-       (concat (get-chrome-root) "tools/emacs/trybot-windows.txt"))
+       (concat (get-chrome-root) "tools/emacs/" filename))
 
     (trybot-fixup)))
 
+(defun trybot-test-win ()
+  "Load the Windows test data and do the trybot parse on it."
+  (interactive)
+  (trybot-test "trybot-windows.txt"))
+(defun trybot-test-mac ()
+  "Load the Mac test data and do the trybot parse on it."
+  (interactive)
+  (trybot-test "trybot-mac.txt"))
+
 (defun trybot (url)
   "Fetch a trybot URL and fix up the output into a compilation-mode buffer."
   (interactive "sURL to trybot stdout (leave empty to use clipboard): ")