aboutsummaryrefslogtreecommitdiffstats
path: root/test/rlx_goal_tests.erl
diff options
context:
space:
mode:
authorJordan Wilberding <[email protected]>2013-05-14 20:59:32 -0700
committerJordan Wilberding <[email protected]>2013-05-14 20:59:32 -0700
commit834fc00544e4222e5fe1713c33d16e5192de33fe (patch)
tree1ae9a327feeb420983f9a85fdb6c800900369480 /test/rlx_goal_tests.erl
parentd2698281ff1b0a46b2bcf6c2579cc811a3f62500 (diff)
parentc5f0a8c9175b2d152c69f72da15e7ceff411f86b (diff)
downloadrelx-834fc00544e4222e5fe1713c33d16e5192de33fe.tar.gz
relx-834fc00544e4222e5fe1713c33d16e5192de33fe.tar.bz2
relx-834fc00544e4222e5fe1713c33d16e5192de33fe.zip
Merge pull request #2 from ericbmerritt/rename-to-relx
Relup + rename support
Diffstat (limited to 'test/rlx_goal_tests.erl')
-rw-r--r--test/rlx_goal_tests.erl63
1 files changed, 63 insertions, 0 deletions
diff --git a/test/rlx_goal_tests.erl b/test/rlx_goal_tests.erl
new file mode 100644
index 0000000..9a99bcb
--- /dev/null
+++ b/test/rlx_goal_tests.erl
@@ -0,0 +1,63 @@
+%% -*- erlang-indent-level: 4; indent-tabs-mode: nil; fill-column: 92 -*-
+%%% Copyright 2012 Erlware, LLC. All Rights Reserved.
+%%%
+%%% This file is provided to you under the Apache License,
+%%% Version 2.0 (the "License"); you may not use this file
+%%% except in compliance with the License. You may obtain
+%%% a copy of the License at
+%%%
+%%% http://www.apache.org/licenses/LICENSE-2.0
+%%%
+%%% Unless required by applicable law or agreed to in writing,
+%%% software distributed under the License is distributed on an
+%%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%%% KIND, either express or implied. See the License for the
+%%% specific language governing permissions and limitations
+%%% under the License.
+%%%---------------------------------------------------------------------------
+%%% @author Eric Merritt <[email protected]>
+%%% @copyright (C) 2012 Erlware, LLC.
+%%% @doc test for target spec parsing
+-module(rlx_goal_tests).
+
+-include_lib("eunit/include/eunit.hrl").
+
+parse_test() ->
+ ?assertMatch({ok, getopt},
+ rlx_goal:parse("getopt")),
+ ?assertMatch({ok, {getopt, {{0,5,1},{[],[]}}, '='}},
+ rlx_goal:parse("getopt=0.5.1")),
+ ?assertMatch({ok, {getopt, {{0,5,1},{[],[]}}, '='}},
+ rlx_goal:parse("getopt:0.5.1")),
+ ?assertMatch({ok, {getopt, {{0,5,1},{[],[]}}, '='}},
+ rlx_goal:parse("getopt-0.5.1")),
+ ?assertMatch({ok, {getopt, {{0,5,1},{[],[]}}, gte}},
+ rlx_goal:parse("getopt >= 0.5.1")),
+ ?assertMatch({ok, {getopt, {{0,5,1},{[],[]}}, gte}},
+ rlx_goal:parse("getopt:gte:0.5.1")),
+ ?assertMatch({ok, {getopt, {{0,5,1},{[],[]}}, gt}},
+ rlx_goal:parse("getopt>0.5.1")),
+ ?assertMatch({ok, {getopt, {{0,5,1},{[],[]}}, gt}},
+ rlx_goal:parse("getopt:gt:0.5.1")),
+ ?assertMatch({ok, {getopt, {{0,5,1},{[],[]}}, lte}},
+ rlx_goal:parse("getopt<= 0.5.1")),
+ ?assertMatch({ok, {getopt, {{0,5,1},{[],[]}}, lte}},
+ rlx_goal:parse("getopt:lte:0.5.1")),
+ ?assertMatch({ok, {getopt, {{0,5,1},{[],[]}}, lt}},
+ rlx_goal:parse("getopt<0.5.1")),
+ ?assertMatch({ok, {getopt, {{0,5,1},{[],[]}}, pes}},
+ rlx_goal:parse("getopt ~>0.5.1")),
+ ?assertMatch({ok, {getopt, {{0,5,1},{[],[]}}, pes}},
+ rlx_goal:parse("getopt: pes:0.5.1")),
+ ?assertMatch({ok, {getopt, {{0,5,1},{[],[]}}, {{0,6,1},{[],[]}}, between}},
+ rlx_goal:parse("getopt:btwn:0.5.1,0.6.1")),
+ ?assertMatch({ok, {getopt, {{0,5,1},{[],[]}}, {{0,6,1},{[],[]}}, between}},
+ rlx_goal:parse("getopt:between :0.5.1,0.6.1")).
+
+fail_test() ->
+ ?assertMatch({fail,_},
+ rlx_goal:parse("got:")),
+ ?assertMatch({fail,_},
+ rlx_goal:parse("between:btwn:0.5")),
+ ?assertMatch({fail,_},
+ rlx_goal:parse("between:btwn:0.5,")).