From 496eb85558292829f1c37603b16f3ac51a92800c Mon Sep 17 00:00:00 2001
From: "Meredith L. Patterson" <mlp@thesmartpolitenerd.com>
Date: Thu, 2 Jan 2014 12:40:20 +0100
Subject: [PATCH] fixed dash-in-test-name problem
---
lib/tsgenjava.pl | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/lib/tsgenjava.pl b/lib/tsgenjava.pl
index e5c7c9e0..dc5f22b9 100644
--- a/lib/tsgenjava.pl
+++ b/lib/tsgenjava.pl
@@ -19,6 +19,9 @@
underscore_to_camel([0'_, X|Xs], [Xp|Xsp]) :- !,
code_type(Xp, to_upper(X)),
underscore_to_camel(Xs,Xsp).
+underscore_to_camel([0'-, X|Xs], [Xp|Xsp]) :- !,
+ code_type(Xp, to_upper(X)),
+ underscore_to_camel(Xs,Xsp).
underscore_to_camel([X|Xs],[X|Xsp]) :- !,
underscore_to_camel(Xs,Xsp).
underscore_to_camel([],[]) :- !.
@@ -31,7 +34,8 @@ format_parser_name(Name, Result) :-
append("Hammer.", Result0, Result), !.
format_test_name(Name, Result) :-
- atom_codes(Name, [CInit|CName]),
+ atom_codes(Name, NameCodes),
+ underscore_to_camel(NameCodes, [CInit|CName]),
code_type(RInit, to_upper(CInit)),
append("Test", [RInit|CName], Result), !.
--
GitLab