require_relative '../../helper'

Tk.init

describe Tk::Font do
  it 'lists names of all named fonts' do
    Tk::Font.names.sort.should ==  [
      "TkCaptionFont", "TkDefaultFont", "TkFixedFont", "TkHeadingFont",
      "TkIconFont", "TkMenuFont", "TkSmallCaptionFont", "TkTextFont",
      "TkTooltipFont"
    ]
  end

  it 'measures a character' do
    Tk::Font.measure('TkDefaultFont', '0').should >= 4
  end

  it 'shows metrics of a font' do
    Tk::Font.metrics('TkDefaultFont', :ascent).should == 12
    Tk::Font.metrics('TkDefaultFont', :descent).should == 3
    Tk::Font.metrics('TkDefaultFont', :linespace).should == 15
    Tk::Font.metrics('TkDefaultFont', :fixed).should == 0
  end

  it 'lists all font families on the system' do
    Tk::Font.families.size.should > 0
  end

  it 'creates a font' do
    Tk::Font.create('Awesome Font').should == "Awesome Font"
    Tk::Font.names.sort.should.include('Awesome Font')

    lambda{
      Tk::Font.create('Awesome Font')
    }.should.raise.message =~ /^named font "Awesome Font" already exists/
  end

  it 'show configuration for our font' do
    conf = Tk::Font.configure('Awesome Font')
    conf[:family].should == ''
    conf[:size].should == 0
    conf[:weight].should == :normal
    conf[:slant].should == :roman
    conf[:underline].should == false
    conf[:overstrike].should == false
  end

  it 'manipulates configuration of our font' do
    Tk::Font.configure('Awesome Font', size: 10)
    Tk::Font.configure('Awesome Font')[:size].should == 10
  end

  it 'shows actual information about the font' do
    conf = Tk::Font.actual('Awesome Font')
    conf[:family].should.not == ''
    conf[:size].should == 10
    conf[:weight].should == :normal
    conf[:slant].should == :roman
    conf[:underline].should == false
    conf[:overstrike].should == false
  end

  it 'deletes the font' do
    Tk::Font.delete('Awesome Font')
    Tk::Font.names.should.not.include('Awesome Font')
  end
end