Add FoodsFin to testsuite (fails)

testsuite/lpgf/Foods.treebank

@@ -2,6 +2,7 @@ Foods: Pred (That Wine) Delicious
 FoodsBul: онова вино е превъзходно
 FoodsChi: 那 瓶 酒 是 美 味 的
 FoodsEng: that wine is delicious
+FoodsFin: tuo viini on herkullinen
 FoodsHeb: היין ההוא טעים
 FoodsSwe: det där vinet är läckert
 
@@ -9,6 +10,7 @@ Foods: Pred (This Pizza) (Very Boring)
 FoodsBul: тази пица е много еднообразна
 FoodsChi: 这 张 比 萨 饼 是 非 常 难 吃 的
 FoodsEng: this pizza is very boring
+FoodsFin: tämä pizza on erittäin tylsä
 FoodsHeb: הפיצה הזאת מאוד משעממת
 FoodsSwe: den här pizzan är mycket tråkig
 
@@ -16,6 +18,7 @@ Foods: Pred (This Cheese) Fresh
 FoodsBul: това сирене е свежо
 FoodsChi: 这 块 奶 酪 是 新 鲜 的
 FoodsEng: this cheese is fresh
+FoodsFin: tämä juusto on tuore
 FoodsHeb: הגבינה הזאת טריה
 FoodsSwe: den här osten är färsk
 
@@ -23,6 +26,7 @@ Foods: Pred (Those Fish) Warm
 FoodsBul: онези риби са горещи
 FoodsChi: 那 几 条 鱼 是 温 热 的
 FoodsEng: those fish are warm
+FoodsFin: nuo kalat ovat lämpimiä
 FoodsHeb: הדגים ההם חמים
 FoodsSwe: de där fiskarna är varma
 
@@ -30,6 +34,7 @@ Foods: Pred (That (Mod Boring (Mod Italian Pizza))) Expensive
 FoodsBul: онази еднообразна италианска пица е скъпа
 FoodsChi: 那 张 又 难 吃 又 意 大 利 式 的 比 萨 饼 是 昂 贵 的
 FoodsEng: that boring Italian pizza is expensive
+FoodsFin: tuo tylsä italialainen pizza on kallis
 FoodsHeb: הפיצה האיטלקית המשעממת ההיא יקרה
 FoodsSwe: den där tråkiga italienska pizzan är dyr
 

testsuite/lpgf/FoodsFin.gf

@@ -0,0 +1,6 @@
+
+-- (c) 2009 Aarne Ranta under LGPL
+
+concrete FoodsFin of Foods = FoodsI with 
+  (Syntax = SyntaxFin),
+  (LexFoods = LexFoodsFin) ;

testsuite/lpgf/LexFoodsFin.gf

@@ -0,0 +1,21 @@
+-- (c) 2009 Aarne Ranta under LGPL
+--# -coding=latin1
+
+instance LexFoodsFin of LexFoods = 
+    open SyntaxFin, ParadigmsFin in {
+  oper
+    wine_N = mkN "viini" ;
+    pizza_N = mkN "pizza" ;
+    cheese_N = mkN "juusto" ;
+    fish_N = mkN "kala" ;
+    fresh_A = mkA "tuore" ;
+    warm_A = mkA 
+    (mkN "lämmin" "lämpimän" "lämmintä" "lämpimänä" "lämpimään" 
+         "lämpiminä" "lämpimiä" "lämpimien" "lämpimissä" "lämpimiin"
+	 ) 
+    "lämpimämpi" "lämpimin" ;
+    italian_A = mkA "italialainen" ;
+    expensive_A = mkA "kallis" ;
+    delicious_A = mkA "herkullinen" ;
+    boring_A = mkA "tylsä" ;
+}