MuranoCLI 2.2.4 → 3.0.0

data/lib/MrMurano/version.rb

@@ -1,4 +1,33 @@
+# Last Modified: 2017.08.18 /coding: utf-8
+# frozen_string_literal: true
+
+# Copyright © 2016-2017 Exosite LLC.
+# License: MIT. See LICENSE.txt.
+#  vim:tw=0:ts=2:sw=2:et:ai
+
 module MrMurano
-  VERSION = '2.2.4'.freeze
+  # USAGE: Use 'beta.' and 'pre.' to label beta releases and dev builds.
+  #   For example, the first beta for a 3.0.0 release would be:
+  #     3.0.0.beta.1
+  #   After the beta release, developers would want to use a pre-build:
+  #     3.0.0.beta.2.pre.1
+  #   And then the next beta release drops the 'pre'-postfix:
+  #     3.0.0.beta.2
+  #   And finally the general release drops the 'beta'-postfix:
+  #     3.0.0
+  #   This works because of how versions are ordered, e.g.,
+  #     3.0.0.beta.1 < 3.0.0.beta.2.pre.1 < 3.0.0.beta.2 < 3.0.0
+  #
+  #   Note that we cannot follow the Semantic Version guidelines
+  #   from http://semver.org/. The guidelines say to use a dash to
+  #   separate the pre-release version, and a plus to separate the
+  #   build metadata, e.g., '3.0.0-beta.2+1'. However, the `rake build`
+  #   task replaces a dash in the version with the text, 'pre.', e.g.,
+  #     '3.0.0-beta.2' is changed to '3.0.0.pre.beta.2'
+  #   which breaks our build (which expects the version to match herein).
+  #   So stick to using the '.pre.X' syntax, which ruby/gems knows.
+  VERSION = '3.0.0'
+  EXE_NAME = File.basename($PROGRAM_NAME)
+  SIGN_UP_URL = 'https://exosite.com/signup/'
 end
 

data/spec/Account-Passwords_spec.rb

@@ -1,14 +1,34 @@
+# Last Modified: 2017.07.05 /coding: utf-8
+
+# Copyright © 2016-2017 Exosite LLC.
+# License: MIT. See LICENSE.txt.
+#  vim:tw=0:ts=2:sw=2:et:ai
+
+require 'tempfile'
 require 'MrMurano/version'
 require 'MrMurano/Account'
-require 'tempfile'
+require '_workspace'
 
 RSpec.describe MrMurano::Passwords, "#pwd" do
+  # Weird: This tests works on its own without the "WORKSPACE",
+  # but when run with other tests, it fails. (2017-07-05: I think
+  # I just added the $cfg lines, because MrMurano::Passwords
+  # expects $cfg to be loaded... [lb].)
+  include_context "WORKSPACE"
+
   before(:example) do
+    @saved_cfg = ENV['MURANO_CONFIGFILE']
+    ENV['MURANO_CONFIGFILE'] = nil
+    $cfg = MrMurano::Config.new
+    $cfg.load
+
     @saved_pwd = ENV['MURANO_PASSWORD']
     ENV['MURANO_PASSWORD'] = nil
   end
   after(:example) do
     ENV['MURANO_PASSWORD'] = @saved_pwd
+
+    ENV['MURANO_CONFIGFILE'] = @saved_cfg
   end
 
   it "Creates a file " do
@@ -235,8 +255,5 @@ this.is.a.host:
       end
     end
   end
-
-
 end
 
-#  vim: set ai et sw=2 ts=2 :

data/spec/Account_spec.rb

@@ -1,7 +1,14 @@
+# Last Modified: 2017.08.16 /coding: utf-8
+
+# Copyright © 2016-2017 Exosite LLC.
+# License: MIT. See LICENSE.txt.
+#  vim:tw=0:ts=2:sw=2:et:ai
+
+require 'highline/import'
 require 'MrMurano/version'
-require 'MrMurano/Config'
 require 'MrMurano/Account'
-require 'highline/import'
+require 'MrMurano/Config'
+require 'MrMurano/ProjectFile'
 require '_workspace'
 
 RSpec.describe MrMurano::Account, "token" do
@@ -15,7 +22,10 @@ RSpec.describe MrMurano::Account, "token" do
     $cfg['business.id'] = 'XYZxyz'
     $cfg['product.id'] = 'XYZ'
 
-    @acc = MrMurano::Account.new
+    $project = MrMurano::ProjectFile.new
+    $project.load
+
+    @acc = MrMurano::Account.instance
   end
 
   after(:example) do
@@ -35,7 +45,7 @@ RSpec.describe MrMurano::Account, "token" do
       $cfg['user.name'] = "bob"
       expect(@pswd).to receive(:get).once.and_return("built")
 
-      ret = @acc._loginInfo
+      ret = @acc.login_info
       expect(ret).to eq({
         :email => "bob", :password=>"built"
       })
@@ -48,7 +58,7 @@ RSpec.describe MrMurano::Account, "token" do
       expect($cfg).to receive(:set).with('user.name', 'bob', :user).once.and_call_original
       expect(@pswd).to receive(:get).once.and_return("built")
 
-      ret = @acc._loginInfo
+      ret = @acc.login_info
       expect(ret).to eq({
         :email => "bob", :password=>"built"
       })
@@ -56,27 +66,30 @@ RSpec.describe MrMurano::Account, "token" do
 
     it "Asks for password" do
       $cfg['user.name'] = "bob"
-      expect(@pswd).to receive(:get).with('bizapi.hosted.exosite.io','bob').once.and_return(nil)
+      expect(@pswd).to receive(:get).with('bizapi.hosted.exosite.io', 'bob').once.and_return(nil)
       expect(@acc).to receive(:error).once
       expect($terminal).to receive(:ask).once.and_return('dog')
       expect(@pswd).to receive(:set).once.with('bizapi.hosted.exosite.io','bob','dog')
-
-      ret = @acc._loginInfo
-      expect(ret).to eq({
-        :email => "bob", :password=>"dog"
-      })
+      # 2017-07-31: login_info may exit unless the command okays prompting for the password.
+      #   (If we don't set this, login_info exits, which we'd want to
+      #   catch with
+      #     expect {@acc.login_info }.to raise_error(SystemExit).and output('...')
+      expect($cfg).to receive(:prompt_if_logged_off).and_return(true)
+
+      ret = @acc.login_info
+      expect(ret).to eq(email: "bob", password: "dog")
     end
   end
 
   context "token" do
     before(:example) do
-      allow(@acc).to receive(:_loginInfo).and_return({:email=>'bob',:password=>'v'})
+      allow(@acc).to receive(:login_info).and_return({:email=>'bob',:password=>'v'})
     end
 
     it "gets a token" do
       stub_request(:post, "https://bizapi.hosted.exosite.io/api:1/token/").
         with(:body => {:email=>'bob', :password=>'v'}.to_json).
-        to_return(body: {:token=>"ABCDEFGHIJKLMNOP"}.to_json )
+        to_return(body: {:token=>"ABCDEFGHIJKLMNOP"}.to_json)
 
       ret = @acc.token
       expect(ret).to eq("ABCDEFGHIJKLMNOP")
@@ -85,11 +98,17 @@ RSpec.describe MrMurano::Account, "token" do
     it "gets an error" do
       stub_request(:post, "https://bizapi.hosted.exosite.io/api:1/token/").
         with(:body => {:email=>'bob', :password=>'v'}.to_json).
-        to_return(status: 401, body: {}.to_json )
+        to_return(status: 401, body: {}.to_json)
 
       expect(@acc).to receive(:error).twice.and_return(nil)
       ret = @acc.token
       expect(ret).to be_nil
+      # MAYBE/2017-07-13: Change Account.token method to put error and exit,
+      # just like Http.token method. ([lb] concerned that MurCLI might keep
+      # running without a valid token and then fail unexpectedly later.)
+      #expect {
+      #  @acc.token
+      #}.to raise_error(SystemExit).and output("\e[31mNot logged in!\e[0m\n").to_stderr
     end
 
     it "uses existing token" do
@@ -100,7 +119,7 @@ RSpec.describe MrMurano::Account, "token" do
 
     it "uses existing token, even with new instance" do
       @acc.token_reset("quxx")
-      acc = MrMurano::Account.new
+      acc = MrMurano::Account.instance
       ret = acc.token
       expect(ret).to eq("quxx")
     end
@@ -118,7 +137,7 @@ RSpec.describe MrMurano::Account do
     $cfg['business.id'] = 'XYZxyz'
     $cfg['product.id'] = 'XYZ'
 
-    @acc = MrMurano::Account.new
+    @acc = MrMurano::Account.instance
     allow(@acc).to receive(:token).and_return("TTTTTTTTTT")
   end
   after(:example) do
@@ -126,155 +145,59 @@ RSpec.describe MrMurano::Account do
   end
 
   it "initializes" do
-    uri = @acc.endPoint('')
+    uri = @acc.endpoint('')
     expect(uri.to_s).to eq("https://bizapi.hosted.exosite.io/api:1/")
   end
 
   context "lists business" do
     it "for user.name" do
-      bizlist = [{"bizid"=>"XXX","role"=>"admin","name"=>"MPS"},
-                 {"bizid"=>"YYY","role"=>"admin","name"=>"MAE"}]
+      # http.rb::json_opts() sets :symbolize_names=>true, so use symbols, not strings.
+      bizlist = [
+        {:bizid=>"YYY",
+         :role=>"admin",
+         :name=>"MAE",
+        },
+        {:bizid=>"XXX",
+         :role=>"admin",
+         :name=>"MPS",
+        },
+      ]
       stub_request(:get, "https://bizapi.hosted.exosite.io/api:1/user/BoB@place.net/membership/").
-        to_return(body: bizlist )
+        to_return(body: bizlist)
+
+      buslist = []
+      buslist << MrMurano::Business.new(bizlist[0])
+      buslist << MrMurano::Business.new(bizlist[1])
 
       $cfg['user.name'] = 'BoB@place.net'
       ret = @acc.businesses
-      expect(ret).to eq(bizlist)
+      expect(ret).to eq(buslist)
     end
 
-    it "askes for account when missing" do
-      bizlist = [{"bizid"=>"XXX","role"=>"admin","name"=>"MPS"},
-                 {"bizid"=>"YYY","role"=>"admin","name"=>"MAE"}]
+    it "asks for account when missing" do
+      bizlist = [
+        {:bizid=>"YYY",
+         :role=>"admin",
+         :name=>"MAE"},
+        {:bizid=>"XXX",
+         :role=>"admin",
+         :name=>"MPS"},
+      ]
       stub_request(:get, "https://bizapi.hosted.exosite.io/api:1/user/BoB@place.net/membership/").
-        to_return(body: bizlist )
+        to_return(body: bizlist)
+
+      buslist = []
+      buslist << MrMurano::Business.new(bizlist[0])
+      buslist << MrMurano::Business.new(bizlist[1])
 
       $cfg['user.name'] = nil
-      expect(@acc).to receive(:_loginInfo) do |arg|
+      expect(@acc).to receive(:login_info) do |arg|
         $cfg['user.name'] = 'BoB@place.net'
       end
 
       ret = @acc.businesses
-      expect(ret).to eq(bizlist)
+      expect(ret).to eq(buslist)
     end
   end
-
-  it "lists products" do
-    prdlist = [{"bizid"=>"XYZxyz","type"=>"onepModel","pid"=>"ABC","modelId"=>"cde","label"=>"fts"},
-               {"bizid"=>"XYZxyz","type"=>"onepModel","pid"=>"fgh","modelId"=>"ijk","label"=>"lua-test"}]
-    stub_request(:get, "https://bizapi.hosted.exosite.io/api:1/business/XYZxyz/product/").
-      to_return(body: prdlist )
-
-    ret = @acc.products
-    expect(ret).to eq(prdlist)
-  end
-
-  it "lists products; without biz.id" do
-    allow($cfg).to receive(:get).with('business.id').and_return(nil)
-    expect { @acc.products }.to raise_error("Missing Business ID")
-  end
-
-  it "creates product" do
-    stub_request(:post, "https://bizapi.hosted.exosite.io/api:1/business/XYZxyz/product/").
-      with(:body => {:label=>'ONe', :type=>'onepModel'}).
-      to_return(body: "" )
-
-    ret = @acc.new_product("ONe")
-    expect(ret).to eq({})
-  end
-
-  it "creates product; without biz.id" do
-    allow($cfg).to receive(:get).with('business.id').and_return(nil)
-    expect { @acc.new_product("ONe") }.to raise_error("Missing Business ID")
-  end
-
-  it "deletes product" do
-    stub_request(:delete, "https://bizapi.hosted.exosite.io/api:1/business/XYZxyz/product/ONe").
-      to_return(body: "" )
-
-    ret = @acc.delete_product("ONe")
-    expect(ret).to eq({})
-  end
-
-  it "deletes product; without biz.id" do
-    allow($cfg).to receive(:get).with('business.id').and_return(nil)
-    expect { @acc.delete_product("ONe") }.to raise_error("Missing Business ID")
-  end
-
-
-  it "lists solutions" do
-    sollist = [{"bizid"=>"XYZxyz",
-                "type"=>"dataApi",
-                "domain"=>"two.apps.exosite.io",
-                "apiId"=>"abc",
-                "sid"=>"def"},
-               {"bizid"=>"XYZxyz",
-                "type"=>"dataApi",
-                "domain"=>"one.apps.exosite.io",
-                "apiId"=>"ghi",
-                "sid"=>"jkl"}]
-    stub_request(:get, "https://bizapi.hosted.exosite.io/api:1/business/XYZxyz/solution/").
-      to_return(body: sollist )
-
-    ret = @acc.solutions
-    expect(ret).to eq(sollist)
-  end
-
-  it "lists solutions; without biz.id" do
-    allow($cfg).to receive(:get).with('business.id').and_return(nil)
-    expect { @acc.solutions }.to raise_error("Missing Business ID")
-  end
-
-  it "creates solution" do
-    stub_request(:post, "https://bizapi.hosted.exosite.io/api:1/business/XYZxyz/solution/").
-      with(:body => {:label=>'one', :type=>'dataApi'}).
-      to_return(body: "" )
-
-    ret = @acc.new_solution("one")
-    expect(ret).to eq({})
-  end
-
-  it "creates solution; with upper case" do
-    stub_request(:post, "https://bizapi.hosted.exosite.io/api:1/business/XYZxyz/solution/").
-      with(:body => {:label=>'ONe', :type=>'dataApi'}).
-      to_return(body: "" )
-
-    expect { @acc.new_solution("ONe") }.to_not raise_error
-  end
-
-  it "creates solution; with numbers and dashes" do
-    stub_request(:post, "https://bizapi.hosted.exosite.io/api:1/business/XYZxyz/solution/").
-      with(:body => {:label=>'ONe-8796-gkl', :type=>'dataApi'}).
-      to_return(body: "" )
-
-    expect { @acc.new_solution("ONe-8796-gkl") }.to_not raise_error
-  end
-
-  it "creates solution; that is too long" do
-    expect { @acc.new_solution("o"*70) }.to raise_error("Solution name must be a valid domain name component")
-  end
-
-  it "creates solution; with underscore" do
-    expect { @acc.new_solution("one_two") }.to raise_error("Solution name must be a valid domain name component")
-  end
-
-  it "creates solution; without biz.id" do
-    allow($cfg).to receive(:get).with('business.id').and_return(nil)
-    expect { @acc.new_solution("one") }.to raise_error("Missing Business ID")
-  end
-
-  it "deletes solution" do
-    stub_request(:delete, "https://bizapi.hosted.exosite.io/api:1/business/XYZxyz/solution/one").
-      to_return(body: "" )
-
-    ret = @acc.delete_solution("one")
-    expect(ret).to eq({})
-  end
-
-  it "deletes solution; without biz.id" do
-    allow($cfg).to receive(:get).with('business.id').and_return(nil)
-    expect { @acc.delete_solution("one") }.to raise_error("Missing Business ID")
-  end
-
 end
 
-#  vim: set ai et sw=2 ts=2 :

data/spec/Business_spec.rb

@@ -0,0 +1,290 @@
+# Last Modified: 2017.08.02 /coding: utf-8
+
+# Copyright © 2016-2017 Exosite LLC.
+# License: MIT. See LICENSE.txt.
+#  vim:tw=0:ts=2:sw=2:et:ai
+
+require 'highline/import'
+require 'MrMurano/version'
+require 'MrMurano/Config'
+require 'MrMurano/Account'
+require '_workspace'
+
+MISSING_BIZ_ID_MSG = MrMurano::Business.missing_business_id_msg
+
+RSpec.describe MrMurano::Business do
+  include_context "WORKSPACE"
+  before(:example) do
+    @saved_cfg = ENV['MURANO_CONFIGFILE']
+    ENV['MURANO_CONFIGFILE'] = nil
+    $cfg = MrMurano::Config.new
+    $cfg.load
+    $cfg['net.host'] = 'bizapi.hosted.exosite.io'
+    $cfg['business.id'] = 'XYZxyz'
+    $cfg['product.id'] = 'XYZ'
+
+    @biz = MrMurano::Business.new
+    allow(@biz).to receive(:token).and_return("TTTTTTTTTT")
+  end
+  after(:example) do
+    ENV['MURANO_CONFIGFILE'] = @saved_cfg
+  end
+
+  it "lists products" do
+    prodlist = [
+      {bizid: "XYZxyz",
+       type: "product",
+       pid: "ABC",
+       modelId: "cde",
+       label: "fts",
+       sid: "XYZ",
+       name: "XYZ",},
+      {bizid: "XYZxyz",
+       type: "product",
+       pid: "fgh",
+       modelId: "ijk",
+       label: "lua-test",
+       sid: "XYZ",
+       name: "XYZ",},
+    ]
+    stub_request(:get, "https://bizapi.hosted.exosite.io/api:1/business/XYZxyz/solution/").
+      to_return(body: prodlist)
+
+    solz = []
+    solz << MrMurano::Product.new(prodlist[0])
+    solz << MrMurano::Product.new(prodlist[1])
+
+    ret = @biz.products
+    expect(ret).to eq(solz)
+  end
+
+  it "lists products; without biz.id" do
+    allow($cfg).to receive(:get).with('business.id').and_return(nil)
+    expect(@biz).to receive(:debug).with("Getting all solutions of type product")
+    expect { @biz.products }.to raise_error(MISSING_BIZ_ID_MSG)
+  end
+
+  it "creates product" do
+    # LATER: Re-enable using "ONe" instead of "one" after upcase fixed in pegasus_registry.
+    stub_request(
+      :post, "https://bizapi.hosted.exosite.io/api:1/business/XYZxyz/solution/"
+    ).with(
+      body: { label: 'one', type: 'product' }
+    ).to_return(body: '{"id": "abc123def456ghi78", "name": "one"}')
+
+    prod = @biz.new_product("one")
+    expect(prod.valid?).to be true
+  end
+
+  it "creates product; without biz.id" do
+    allow($cfg).to receive(:get).with('business.id').and_return(nil)
+    # LATER: Re-enable using "ONe" instead of "one" after upcase fixed in pegasus_registry.
+    expect { @biz.new_product("one") }.to raise_error(MISSING_BIZ_ID_MSG)
+  end
+
+  it "deletes product" do
+    # LATER: Re-enable using "ONe" instead of "one" after upcase fixed in pegasus_registry.
+    stub_request(:delete, "https://bizapi.hosted.exosite.io/api:1/business/XYZxyz/solution/one").
+      to_return(body: "")
+
+    ret = @biz.delete_product("one")
+    expect(ret).to eq({})
+  end
+
+  it "deletes product; without biz.id" do
+    allow($cfg).to receive(:get).with('business.id').and_return(nil)
+    # LATER: Re-enable using "ONe" instead of "one" after upcase fixed in pegasus_registry.
+    expect { @biz.delete_product("one") }.to raise_error(MISSING_BIZ_ID_MSG)
+  end
+
+  # *** :applications type solutions
+
+  it "lists applications" do
+    # NOTE: Need to use symbols, not strings, for keys, because
+    #       http.rb::json_opts() specifies :symbolize_names => true.
+    appllist = [
+      {bizid: "XYZxyz",
+       type: "application",
+       domain: "XYZxyz.apps.exosite.io",
+       apiId: "ACBabc",
+       sid: "ACBabc",
+       name: "ijk",
+      },
+      {bizid: "XYZxyz",
+       type: "application",
+       domain: "XYZxyz.apps.exosite.io",
+       apiId: "DEFdef",
+       sid: "DEFdef",
+       name: "lmn",
+      },
+    ]
+    solnlist = [
+      {bizid: "XYZxyz",
+       type: "product",
+       pid: "ABC",
+       modelId: "cde",
+       label: "fts",
+       name: "fgh",
+      },
+    ]
+    solnlist.concat appllist
+    stub_request(:get, "https://bizapi.hosted.exosite.io/api:1/business/XYZxyz/solution/").
+      to_return(body: solnlist)
+
+    solz = []
+    #solz << MrMurano::Product.new(solnlist[0])
+    solz << MrMurano::Application.new(appllist[0])
+    solz << MrMurano::Application.new(appllist[1])
+
+    ret = @biz.applications
+    expect(ret).to eq(solz)
+  end
+
+  it "lists applications; without biz.id" do
+    allow($cfg).to receive(:get).with('business.id').and_return(nil)
+    expect(@biz).to receive(:debug).with("Getting all solutions of type application")
+    expect { @biz.applications }.to raise_error(MISSING_BIZ_ID_MSG)
+  end
+
+  it "creates application" do
+    # LATER: Re-enable using "ONe" instead of "one" after upcase fixed in pegasus_registry.
+    stub_request(:post, "https://bizapi.hosted.exosite.io/api:1/business/XYZxyz/solution/").
+      with(:body => {:label=>'one', :type=>'application'}).
+      to_return(body: '{"id": "abc123def456ghi78", "name": "one"}')
+
+    appl = @biz.new_application("one")
+    expect(appl.valid?).to be true
+  end
+
+  it "creates application; without biz.id" do
+    allow($cfg).to receive(:get).with('business.id').and_return(nil)
+    # LATER: Re-enable using "ONe" instead of "one" after upcase fixed in pegasus_registry.
+    expect { @biz.new_application("one") }.to raise_error(MISSING_BIZ_ID_MSG)
+  end
+
+  it "deletes application" do
+    stub_request(:delete, "https://bizapi.hosted.exosite.io/api:1/business/XYZxyz/solution/ONe").
+      to_return(body: "")
+
+    ret = @biz.delete_application("ONe")
+    expect(ret).to eq({})
+  end
+
+  it "deletes application; without biz.id" do
+    allow($cfg).to receive(:get).with('business.id').and_return(nil)
+    expect { @biz.delete_application("ONe") }.to raise_error(MISSING_BIZ_ID_MSG)
+  end
+
+  # *** :all type solutions
+
+  it "lists solutions" do
+    # http.rb::json_opts() sets :symbolize_names=>true, so use symbols, not strings.
+    prodlist = [
+      {bizid: "XYZxyz",
+       type: "product",
+       domain: "ABCabc.m2.exosite.io",
+       apiId: "ABCabc",
+       sid: "ABCabc",
+       name: "XXX",
+      },
+    ]
+    appllist = [
+      {bizid: "XYZxyz",
+       type: "application",
+       domain: "XYZxyz.apps.exosite.io",
+       apiId: "DEFdef",
+       sid: "DEFdef",
+       name: "XXX",
+      },
+    ]
+    solnlist = prodlist + appllist
+    stub_request(:get, "https://bizapi.hosted.exosite.io/api:1/business/XYZxyz/solution/").
+      to_return(body: solnlist)
+
+    solz = []
+    solz << MrMurano::Product.new(prodlist[0])
+    solz << MrMurano::Application.new(appllist[0])
+
+    solz = @biz.solutions
+    expect(solz).to eq(solz)
+  end
+
+  it "lists solutions; without biz.id" do
+    allow($cfg).to receive(:get).with('business.id').and_return(nil)
+    expect(@biz).to receive(:debug).with("Getting all solutions of type all")
+    expect { @biz.solutions }.to raise_error(MISSING_BIZ_ID_MSG)
+  end
+
+  it "creates solution" do
+    stub_request(:post, "https://bizapi.hosted.exosite.io/api:1/business/XYZxyz/solution/").
+      with(body: {label: 'one', type: 'product',}).
+      to_return(body: '{"id": "abc123def456ghi78", "name": "one"}')
+
+    sol = @biz.new_solution!("one", :product)
+    expect(sol.valid?).to be true
+    expect(sol.sid).to eq("abc123def456ghi78")
+  end
+
+#  if false
+  if true
+    # LATER: Re-enable after upcase fixed in pegasus_registry.
+    it "creates solution; with upper case" do
+      # 2017-07-03: Murano appears to return the id nowadays, so added body.
+      stub_request(:post, "https://bizapi.hosted.exosite.io/api:1/business/XYZxyz/solution/").
+        with(:body => {:label=>'ONe', :type=>'product'}).
+        to_return(body: '{"id": "abc123def456ghi78", "name": "ONe"}')
+
+      expect { @biz.new_solution!("ONe", :product) }.to_not raise_error
+    end
+  else
+    it "creates solution; with uppercase" do
+      expect { @biz.new_solution!("oNeTWO", :product) }.to raise_error(
+        MrMurano::Product.new.name_validate_help)
+    end
+  end
+
+  it "creates solution; with numbers and dashes" do
+    stub_request(:post, "https://bizapi.hosted.exosite.io/api:1/business/XYZxyz/solution/").
+      with(:body => {:label=>'ONe-8796-gkl', :type=>'product'}).
+      to_return(body: '{"id": "abc123def456ghi78", "name": "ONe-8796-gkl"}')
+
+    # 2017-05-26: Dashes forbidden! MUR-1994
+    #expect { @biz.new_solution!("ONe-8796-gkl", :product) }.to_not raise_error
+    expect { @biz.new_solution!("ONe-8796-gkl", :product) }.to raise_error(
+      MrMurano::Product.new.name_validate_help)
+  end
+
+  it "creates solution; that is too long" do
+    expect { @biz.new_solution!("o"*70, :product) }.to raise_error(
+      MrMurano::Product.new.name_validate_help)
+  end
+
+  it "creates solution; with underscore" do
+    expect { @biz.new_solution!("one_two", :product) }.to raise_error(
+      MrMurano::Product.new.name_validate_help)
+  end
+
+  it "creates solution; with digit first" do
+    expect { @biz.new_solution!("1two", :product) }.to raise_error(
+      MrMurano::Product.new.name_validate_help)
+  end
+
+  it "creates solution; without biz.id" do
+    allow($cfg).to receive(:get).with('business.id').and_return(nil)
+    expect { @biz.new_solution!("one", :product) }.to raise_error(MISSING_BIZ_ID_MSG)
+  end
+
+  it "deletes solution" do
+    stub_request(:delete, "https://bizapi.hosted.exosite.io/api:1/business/XYZxyz/solution/one").
+      to_return(body: "")
+
+    ret = @biz.delete_solution("one")
+    expect(ret).to eq({})
+  end
+
+  it "deletes solution; without biz.id" do
+    allow($cfg).to receive(:get).with('business.id').and_return(nil)
+    expect { @biz.delete_solution("one") }.to raise_error(MISSING_BIZ_ID_MSG)
+  end
+end
+