marty 0.5.34 → 0.5.35

data/spec/features/scripting_test_spec.rb

@@ -0,0 +1,351 @@
+require 'spec_helper'
+
+feature 'under Applications menu, Scripting (debug) workflows', js: true do
+
+  before(:all) do
+    @clean_file = "/tmp/clean_#{Process.pid}.psql"
+    save_clean_db(@clean_file)
+    populate_test_users
+    populate_sample_scripts1
+    populate_sample_scripts2
+    custom_selectors
+  end
+
+  after(:all) do
+    restore_clean_db(@clean_file)
+  end
+
+  def go_to_scripting
+    press('Applications')
+    press('Scripting')
+    expect(page).to have_content 'Scripts'
+  end
+
+  def with_user(uname, &block)
+    u = Marty::User.find_by_login(uname)
+    begin
+      old_u, Mcfly.whodunnit = Mcfly.whodunnit, u
+      block.call(u)
+    ensure
+      Mcfly.whodunnit = old_u
+    end
+  end
+
+  def populate_sample_scripts1
+    sample_script = <<DELOREAN
+A:
+    a =? 123.0
+    b = a * 3
+
+B: A
+    c = a + b
+    d =?
+    e = c / a
+
+C:
+    p0 =?
+    a = 456.0 + p0
+DELOREAN
+
+    with_user("dev1") { |u|
+      Marty::Script.
+        load_script_bodies({
+                             "M1" => sample_script,
+                             "M2" => sample_script.gsub(/a/, "aa").gsub(/b/, "bb"),
+                           }, Date.today)
+
+      # add a DEV version of M1.
+      s = Marty::Script.lookup('infinity', "M1")
+      s.body = sample_script.gsub(/A/, "AA") + '    e =? "hello"'
+      s.save!
+    }
+  end
+
+  def populate_sample_scripts2
+    sample_script2 = <<DELOREAN
+A:
+    a = 2
+    p =?
+    c = a * 2
+    pc = p + c
+
+C: A
+    p =? 3
+
+B: A
+    p =? 5
+DELOREAN
+
+    with_user("dev1") { |u|
+      Marty::Script.
+        load_script_bodies({
+                             "M3" => sample_script2,
+                           }, Date.today + 2.minute)
+    }
+  end
+
+  def tab_press tab_text
+    #we need a separate method for tab clicks
+    wait_for_element do
+        find_by_id(ext_button_id(tab_text), visible: :all).click
+        true
+    end
+  end
+
+  let(:tg) { gridpanel('tag_grid') }
+  let(:sg) { gridpanel('script_grid') }
+
+  it 'switches between tags & scripts, computes values and checks for errors' do
+    log_in_as('dev1')
+    go_to_scripting
+
+    by 'select M1 sample script' do
+      wait_for_ajax
+      zoom_out(tg)
+      select_row(2, tg)
+      select_row(1, sg)
+      tab_press('Testing')
+    end
+
+    and_by 'compute attrs with bad params' do
+      wait_for_ajax
+      wait_for_element do
+        fill_in('attrs', with: "A.a; A.b; B.a; C.a")
+        true
+      end
+      fill_in('params', with: "a = 1.1\nc = 2.2")
+      press('Compute')
+    end
+
+    and_by 'see errors' do
+      wait_for_ajax
+      expect(page).to have_content 'undefined parameter p0'
+    end
+
+    and_by 'compute attrs with good params' do
+      fill_in('params', with: "a = 1.1\nc = 2.2\np0 = 3.3\n")
+      press('Compute')
+    end
+
+    and_by 'correct results' do
+      wait_for_ajax
+      result = find(:gridpanel, 'result', match: :first)
+      expect(result).to have_content 'A.a = 1.1'
+      expect(result).to have_content 'A.b = 3.3'
+      expect(result).to have_content 'B.a = 1.1'
+      expect(result).to have_content 'C.a = 459.3'
+    end
+
+    and_by 'compute new attrs & bad params (div by 0)' do
+      fill_in('attrs', with: "B.e")
+      fill_in('params', with: "a = 0\n")
+      press('Compute')
+    end
+
+    and_by 'see errors' do
+      wait_for_ajax
+      result = find(:gridpanel, 'result', match: :first)
+      expect(result).to have_content 'divided by 0'
+      expect(result).to have_content 'Backtrace'
+      expect(result).to have_content 'M1:8 /'
+      expect(result).to have_content 'M1:8 e'
+    end
+
+    and_by 'select M1 (for dev) sample script' do
+      tab_press('Selection')
+      wait_for_ajax
+      find(:gridpanel, 'script_grid', match: :first, wait: 10)
+      select_row(1, tg)
+      select_row(1, sg)
+      tab_press('Testing')
+    end
+
+    and_by 'compute attrs with empty params' do
+      wait_for_ajax
+      fill_in('attrs', with: "A.a")
+      fill_in('params', with: "")
+      press('Compute')
+    end
+
+    and_by 'see errors' do
+      wait_for_ajax
+      result = find(:gridpanel, 'result', match: :first)
+      expect(result).to have_content 'node A is undefined'
+    end
+
+    and_by 'compute attrs that without necessary params' do
+      fill_in('attrs', with: "C.e")
+      press('Compute')
+    end
+
+    and_by 'correct result' do
+      wait_for_ajax
+      result = find(:gridpanel, 'result', match: :first)
+      expect(result).to have_content 'hello'
+    end
+
+    and_by 'select M2 sample grid' do
+      tab_press('Selection')
+      wait_for_ajax
+      select_row(2, sg)
+      tab_press('Testing')
+    end
+
+    and_by 'compute attrs with good params' do
+      wait_for_ajax
+      fill_in('attrs', with: "B.aa")
+      fill_in('params', with: "aa = 111")
+      press('Compute')
+    end
+
+    and_by 'correct result' do
+      wait_for_ajax
+      result = find(:gridpanel, 'result', match: :first)
+      expect(result).to have_content 'B.aa = 111'
+    end
+  end
+
+  it 'malformed params/attrs input shows proper errors' do
+    log_in_as('dev1')
+    go_to_scripting
+
+    by 'select M1 sample script' do
+      wait_for_ajax
+      select_row(1, sg)
+      tab_press('Testing')
+    end
+
+    and_by 'use bad attributes' do
+      wait_for_ajax
+      wait_for_element do
+        fill_in('attrs', with: "A; y; >")
+        true
+      end
+      press('Compute')
+    end
+
+    and_by 'see errors' do
+      wait_for_ajax
+      result = find(:gridpanel, 'result', match: :first)
+      expect(result).to have_content 'bad attribute'
+    end
+
+    and_by 'use bad node' do
+      wait_for_ajax
+      fill_in('attrs', with: ">.<")
+      press('Compute')
+    end
+
+    and_by 'see errors' do
+      wait_for_ajax
+      result = find(:gridpanel, 'result', match: :first)
+      expect(result).to have_content 'bad node'
+    end
+
+    and_by 'use good attr' do
+      wait_for_ajax
+      fill_in('attrs', with: "A.a")
+      press('Compute')
+    end
+
+    and_by 'see good result' do
+      wait_for_ajax
+      result = find(:gridpanel, 'result', match: :first)
+      expect(result).to have_content 'A.a = 123.0'
+    end
+
+    and_by 'use undefined attr' do
+      wait_for_ajax
+      fill_in('attrs', with: "A.new")
+      press('Compute')
+    end
+
+    and_by 'see errors' do
+      wait_for_ajax
+      result = find(:gridpanel, 'result', match: :first)
+      expect(result).to have_content 'undefined'
+    end
+  end
+
+  it 'computes simple results' do
+    log_in_as('dev1')
+    go_to_scripting
+
+    by 'select M3 sample script' do
+      wait_for_ajax
+      zoom_out(sg)
+      select_row(3, sg)
+      tab_press('Testing')
+    end
+
+    and_by 'use good attr' do
+      wait_for_ajax
+      wait_for_element do
+        fill_in('attrs', with: "C.p; B.p")
+        true
+      end
+      press('Compute')
+    end
+
+    and_by 'see good result' do
+      wait_for_ajax
+      result = find(:gridpanel, 'result', match: :first)
+      expect(result).to have_content 'C.p = 3'
+      expect(result).to have_content 'B.p = 5'
+    end
+
+    and_by 'add a good param' do
+      wait_for_ajax
+      fill_in('params', with: "p = 7")
+      press('Compute')
+    end
+
+    and_by 'see good result' do
+      wait_for_ajax
+      result = find(:gridpanel, 'result', match: :first)
+      expect(result).to have_content 'C.p = 7'
+      expect(result).to have_content 'B.p = 7'
+    end
+
+    and_by 'use good attr' do
+      wait_for_ajax
+      fill_in('attrs', with: "C.pc; B.pc")
+      fill_in('params', with: "")
+      press('Compute')
+    end
+
+    and_by 'see good result' do
+      wait_for_ajax
+      result = find(:gridpanel, 'result', match: :first)
+      expect(result).to have_content 'C.pc = 7'
+      expect(result).to have_content 'B.pc = 9'
+    end
+
+     and_by 'use bad attr' do
+      wait_for_ajax
+      fill_in('attrs', with: "C.pc; B.pc; A.pc;")
+      fill_in('params', with: "")
+      press('Compute')
+    end
+
+    and_by 'see error' do
+      wait_for_ajax
+      result = find(:gridpanel, 'result', match: :first)
+      expect(result).to have_content 'undefined parameter p'
+    end
+
+    and_by 'use good attr & params' do
+      wait_for_ajax
+      fill_in('attrs', with: "C.pc; B.pc")
+      fill_in('params', with: "p = 123.0")
+      press('Compute')
+    end
+
+    and_by 'see good result' do
+      wait_for_ajax
+      result = find(:gridpanel, 'result', match: :first)
+      expect(result).to have_content 'C.pc = 127'
+      expect(result).to have_content 'B.pc = 127'
+    end
+  end
+end

data/spec/features/user_view_spec.rb

@@ -0,0 +1,164 @@
+require 'spec_helper'
+
+feature 'under Sytem menu, User Management worflows', js: true do
+
+  before(:all) do
+    custom_selectors
+  end
+
+  def go_to_user_view
+    press('System')
+    press('User Management')
+    expect(page).to have_content 'marty'
+  end
+
+  def go_to_user_view_backdoor
+    sys_btn = first(:btn, 'System')
+    if sys_btn
+      sys_btn.click
+      expect(page).not_to have_content 'User Management'
+    end
+
+    ensure_on("/#userView")
+  end
+
+  # Checkbox Helpers
+  def check name, val = true
+    page.driver.browser.execute_script <<-JS
+      var poc = Ext.ComponentQuery.query("checkbox[fieldLabel='#{name}']")[0];
+      poc = poc || Ext.ComponentQuery.query("checkbox[name='#{name}']")[0];
+      poc.setValue(#{val});
+    JS
+  end
+
+  def uncheck name
+    check(name, false)
+  end
+
+  let(:uv) { gridpanel('user_view') }
+
+  it 'marty user can add/edit but not delete users' do
+    log_in_as('marty')
+    go_to_user_view
+
+    by 'add new user' do
+      wait_for_ajax
+      zoom_out uv
+      press('New User')
+      within(:gridpanel, 'add_window', match: :first) do
+        press 'OK'
+        m = find :msg
+        expect(m).to have_content "Login can't be blank"
+        expect(m).to have_content "Firstname can't be blank"
+        expect(m).to have_content "Lastname can't be blank"
+
+        fill_in('Login', with: 'test_login')
+        fill_in('First Name', with: 'test_fname')
+        fill_in('Last Name', with: 'test_lname')
+        check 'Active'
+        click_combobox 'Roles'
+        select_combobox('Admin, Developer, User Manager, Viewer', 'Roles')
+        press 'OK'
+      end
+    end
+
+    and_by 'edit the added user' do
+      wait_for_ajax
+      expect(row_count(uv)).to eq 2
+      select_row(2, uv)
+      press('Edit in form')
+
+      within(:gridpanel, 'edit_window', match: :first) do
+        fill_in('Login', with: 'new_login')
+        fill_in('First Name', with: 'new_fname')
+        fill_in('Last Name', with: 'new_lname')
+        click_combobox 'Roles'
+        select_combobox('User Manager, Viewer', 'Roles')
+        press 'OK'
+      end
+    end
+
+    and_by 'check row got edited' do
+      wait_for_ajax
+      validate_row_values(2, uv,
+                          :login => 'new_login',
+                          :firstname => 'new_fname',
+                          :lastname => 'new_lname',
+                          :active => true,
+                          :roles => 'User Manager,Viewer')
+    end
+
+    and_by 'delete user fails' do
+      select_row(2, uv)
+      press("Delete")
+      press("Yes")
+      expect(find(:msg)).to have_content("Users cannot be deleted - set " +
+                                         "'Active' to false to disable the " +
+                                         "account")
+      select_row(1, uv)
+      press("Delete")
+      press("Yes")
+      expect(find(:msg)).to have_content("You cannot delete your own account")
+
+      expect(row_count(uv)).to eq 2
+    end
+  end
+
+  describe 'check user permissions & what buttons appear' do
+
+    before(:all) do
+      populate_test_users
+    end
+
+    it 'user manager has access' do
+      log_in_as('user_manager1')
+      go_to_user_view
+      by 'check buttons' do
+        find(:btn, 'New User', match: :first)
+        zoom_out uv
+        expect(btn_disabled?('New User', uv)).to be_falsy
+        expect(btn_disabled?('Edit in form', uv)).to be_falsy
+        expect(btn_disabled?('Delete', uv)).to be_falsy
+      end
+    end
+
+    it 'admin has access' do
+      log_in_as('admin1')
+      go_to_user_view
+      and_by 'check buttons' do
+        find(:btn, 'New User', match: :first)
+        expect(btn_disabled?('New User', uv)).to be_falsy
+        expect(btn_disabled?('Edit in form', uv)).to be_falsy
+        expect(btn_disabled?('Delete', uv)).to be_falsy
+      end
+    end
+
+    it 'viewer denied access' do
+      log_in_as('viewer1')
+      go_to_user_view_backdoor
+      and_by 'check buttons' do
+        find(:btn, 'New User', match: :first)
+        #selection needed to make delete button disappear
+        wait_for_ajax
+        select_row(1, uv)
+        expect(btn_disabled?('New User', uv)).to be_truthy
+        expect(btn_disabled?('Edit in form', uv)).to be_truthy
+        expect(btn_disabled?('Delete', uv)).to be_truthy
+      end
+    end
+
+    it 'developer denied access' do
+      log_in_as('dev1')
+      go_to_user_view_backdoor
+      and_by 'check buttons' do
+        find(:btn, 'New User', match: :first)
+        #selection needed to make delete button disappear
+        wait_for_ajax
+        select_row(1, uv)
+        expect(btn_disabled?('New User', uv)).to be_truthy
+        expect(btn_disabled?('Edit in form', uv)).to be_truthy
+        expect(btn_disabled?('Delete', uv)).to be_truthy
+      end
+    end
+  end
+end