Shindo.tests('Bluebox::dns | DNS requests', ['bluebox', 'dns']) do

  @domain = ''
  @new_zones = []
  @new_records =[]

  def generate_unique_domain( with_trailing_dot = false)
    #get time (with 1/100th of sec accuracy)
    #want unique domain name and if provider is fast, this can be called more than once per second
    time= (Time.now.to_f * 100).to_i
    domain = 'test-' + time.to_s + '.com'
    if with_trailing_dot
      domain+= '.'
    end

    domain
  end

  tests( 'success') do

    test('get current zone count') do
      pending if Fog.mocking?

      @org_zone_count= 0
      response = Bluebox[:dns].get_zones()
      if response.status == 200
        zones = response.body['zones']
        @org_zone_count = zones.count
      end

      response.status == 200
    end

    test('create zone - simple') do
      pending
    end

    test('create zone - set all parameters') do
      pending
    end

    test("get zone #{@zone_id} - check all parameters for #{@domain}") do
      pending if Fog.mocking?

      result = false

      response = Bluebox[:dns].get_zone(@zone_id)
      if response.status == 200
        zone = response.body
        if (zone['name'] == @domain) and (zone['ttl'] == 3600)
          result = true
        end
      end

      result
    end

    test('get zones - make sure total count is correct') do
      pending if Fog.mocking?

      result = false

      response = Bluebox[:dns].get_zones()
      if response.status == 200
        zones = response.body['records']
        if (@org_zone_count+2) == zones.count
          result= true;
        end
      end

      result
    end

    test('get zones - check all parameters for a zone') do
      pending if Fog.mocking?

      result= false

      response = Bluebox[:dns].get_zones()
      if response.status == 200
        zones = response.body['records']
        zones.each { |zone|
          if zone['id'] == @new_zones[1]
             if (zone['name'] == 'sub.' + @domain) and (zone['ttl'] == 3600)
               result = true;
             end
          end
        }
        if (@org_zone_count+2) == zones.count
          result = true;
        end
      end

      result
    end

    test('create record - simple A record') do
      pending if Fog.mocking?

      host= 'www.' + @domain
      zone_id= @new_zones[1]
      response = Bluebox[:dns].create_record( 'A', zone_id, host, '1.2.3.4')
      if response.status == 201
        record_id = response.body['id']
        @new_records << record_id
      end

      response.status == 201
    end

    test('create record - A record - all parameters set') do
      pending if Fog.mocking?

      host= 'ftp.' + @domain
      zone_id= @new_zones[1]
      options = { :ttl => 3600, :active => 'N'}
      response = Bluebox[:dns].create_record( 'A', zone_id, host, '1.2.3.4', options)
      if response.status == 201
        record_id = response.body['id']
        @new_records << record_id
      end

      response.status == 201
    end

    test('create record - CNAME record') do
      pending if Fog.mocking?

      zone_id= @new_zones[1]
      response = Bluebox[:dns].create_record( 'CNAME', zone_id, 'mail', @domain)
      if response.status == 201
        record_id = response.body['id']
        @new_records << record_id
      end

      response.status == 201
    end

    test('create record - NS record') do
      pending if Fog.mocking?

      ns_domain = 'ns.' + @domain
      zone_id= @new_zones[1]
      options = { :ttl => 3600, :active => 'N'}
      response = Bluebox[:dns].create_record( 'NS', zone_id, @domain, ns_domain, options)
      if response.status == 201
        record_id = response.body['id']
        @new_records << record_id
      end

      response.status == 201
    end

    test('create record - MX record') do
      pending if Fog.mocking?

      mail_domain = 'mail.' + @domain
      zone_id= @new_zones[1]
      options = { :ttl => 3600, :active => 'N', :aux => '10'}
      response = Slicehost[:dns].create_record( 'MX', zone_id, @domain, mail_domain, options)
      if response.status == 201
        @record_id = response.body['id']
        @new_records << @record_id
      end

      response.status == 201
    end

    test("get record #{@record_id} - verify all parameters") do
      pending if Fog.mocking?

      result= false

      response = Slicehost[:dns].get_record(@record_id)
      if response.status == 200
        mail_domain = 'mail.' + @domain
        record = response.body['records'][0]
        if (record['record-type'] == 'MX') and (record['name'] == @domain) and
          (record['data'] == mail_domain) and (record['ttl'] == 3600) and (record['active'] == 'N') and
          (record['aux'] == "10")
          result= true
        end
      end

      result
    end

    test('get records - verify all parameters for one record') do
      pending if Fog.mocking?

      result= false

      response = Bluebox[:dns].get_records()
      if response.status == 200
        records = response.body['records']

        #find mx record
        records.each {|record|
          if record['record-type'] == 'MX'

            mail_domain = 'mail.' + @domain
            if (record['record-type'] == 'MX') and (record['name'] == @domain) and
              (record['data'] == mail_domain) and (record['ttl'] == 3600) and (record['active'] == 'N') and
              (record['aux'] == "10")
              result= true
              break
            end

          end
        }
      end

      result
    end

    test("delete #{@new_records.count} records created") do
      pending if Fog.mocking?

      result= true
      @new_records.each { |record_id|
        response = Slicehost[:dns].delete_record( record_id)
        if response.status != 200
            result= false;
        end
      }
      result
    end

    test("delete #{@new_zones.count} zones created") do
      pending if Fog.mocking?

      result= true

      @new_zones.each { |zone_id|
        response = Slicehost[:dns].delete_zone( zone_id)
        if response.status != 200
            result= false;
        end
      }

      result
    end

  end


  tests( 'failure') do

    #create a zone with invalid parameters
    #get zonfo info with invalid zone id
    #delete a zone with an invalid zone id

    tests('#create_zone') do
    end

  end

end