File tree Expand file tree Collapse file tree 4 files changed +27
-38
lines changed Expand file tree Collapse file tree 4 files changed +27
-38
lines changed Original file line number Diff line number Diff line change 1
1
(ns try-virgil.core
2
- (:import [try_virgil.SampleLib ]))
2
+ (:import [try_virgil.JavaLib ]))
3
3
4
4
(defn greeting
5
5
[who]
6
- (str " Hello there, " who))
6
+ (str " Greeting from Clojure : " who))
7
7
8
8
(defn -main [& args]
9
9
(try
10
- ( greeting " Burin " )
11
- (println " Let's try to call java " )
10
+ ; ; Calling Clojure function
11
+ (greeting " Clojure " )
12
12
13
- (let [java-app (try_virgil.SimpleLib . )]
14
- ( .greeting java-app " Max " )
15
- (.addNumber java-app 3 4 ))
13
+ (let [java-lib (try_virgil.JavaLib . )]
14
+ ; ; Calling Java function
15
+ (.greeting java-lib " Java " ))
16
16
(catch Exception e
17
17
(.printStackTrace e)
18
18
(println (str " Unexpected errros: " (.getMessage e))))))
Original file line number Diff line number Diff line change
1
+ package try_virgil ;
2
+ public class JavaLib {
3
+ public String greeting (String name ) {
4
+ return "Greeting from Java : " + name ;
5
+ }
6
+
7
+ public static void main (String [] args ) {
8
+ JavaLib app = new try_virgil .JavaLib ();
9
+ String message = app .greeting ("Duke" );
10
+ System .out .println (message );
11
+ }
12
+ }
Load Diff This file was deleted.
Original file line number Diff line number Diff line change 1
1
(ns try-virgil.core-test
2
- (:import [try_virgil.SampleLib ])
2
+ (:import [try_virgil.JavaLib ])
3
3
(:require [clojure.test :refer :all ]
4
4
[try-virgil.core :refer :all ]))
5
5
6
- (deftest jvm-hello-tst
7
- (testing " greeting ( Java) "
8
- (let [java-lib (try_virgil.SimpleLib . )]
9
- (is (= (.greeting java-lib " Max " ) " Hi there, Max " )))))
6
+ (deftest java-greeting-test
7
+ (testing " greeting with Java"
8
+ (let [java-lib (try_virgil.JavaLib . )]
9
+ (is (= (.greeting java-lib " Burin " ) " Greeting from Java : Burin " )))))
10
10
11
- (deftest clj-hello -test
12
- (testing " greeting ( Clojure) "
13
- (is (= (greeting " Burin" ) " Hello there, Burin" ))))
11
+ (deftest clojure-greeting -test
12
+ (testing " greeting with Clojure"
13
+ (is (= (greeting " Burin" ) " Greeting from Clojure : Burin" ))))
You can’t perform that action at this time.
0 commit comments