siret 0.1.0

data/.gitignore

@@ -0,0 +1,2 @@
+siret-*.gem
+siret.gemspec

data/LICENSE

@@ -0,0 +1,19 @@
+Copyright (c) 2010 Samuel Lebeau
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.

data/README

@@ -0,0 +1,4 @@
+Generate and validate French SIRET numbers (enterprises identifier), as described here:
+http://fr.wikipedia.org/wiki/Système_d’identification_du_répertoire_des_établissements#Calcul_et_validit.C3.A9_d.27un_num.C3.A9ro_SIRET
+
+Repository: http://github.com/samleb/siret

data/Rakefile

@@ -0,0 +1,40 @@
+require "rake"
+
+begin
+  require "jeweler"
+  Jeweler::Tasks.new do |gemspec|
+    gemspec.name = "siret"
+    gemspec.summary = "Generate and validate French SIRET numbers (enterprises identifier)"
+    gemspec.email = "samuel.lebeau@gmail.com"
+    gemspec.homepage = "http://github.com/samleb/siret"
+    gemspec.author = "Samuel Lebeau"
+  end
+rescue LoadError
+  puts "Jeweler not available. Install it with: sudo gem install jeweler"
+end
+
+begin
+  require "spec/rake/spectask"
+  Spec::Rake::SpecTask.new
+rescue LoadError
+  desc "Run specs"
+  task :spec do
+    abort "RSpec is not available. Install it with: sudo gem install spec"
+  end
+end
+
+desc "Analyze code coverage with specs"
+begin
+  require "rcov/rcovtask"
+  Rcov::RcovTask.new("coverage") do |test|
+    test.libs << "spec"
+    test.test_files = FileList["spec/siret_spec.rb"]
+    test.verbose = true
+  end
+rescue LoadError
+  task :coverage do
+    abort "RCov is not available. Install it with: sudo gem install rcov"
+  end
+end
+
+task :default => :coverage

data/VERSION

@@ -0,0 +1 @@
+0.1.0

data/lib/siret.rb

@@ -0,0 +1,51 @@
+# French SIRET numbers validation and generation as described here:
+# http://fr.wikipedia.org/wiki/Système_d’identification_du_répertoire_des_établissements#Calcul_et_validit.C3.A9_d.27un_num.C3.A9ro_SIRET
+module Siret
+  extend self
+  
+  REGEXP = /^\d{14}$/
+  SIREN_PATTERN = "%012d".freeze
+  SIREN_MAX = 10 ** 11
+  
+  def checksum(siret)
+    result = 0
+    digits(siret).each_slice(2) do |a, b|
+      result += sum(digits(a * 2)) + b
+    end
+    result
+  end
+  
+  def valid?(siret)
+    if siret.to_s =~ REGEXP
+      (checksum(siret) % 10).zero?
+    else
+      false
+    end
+  end
+  
+  def generate
+    siren = generate_siren
+    nic = generate_nic(siren)
+    "#{siren}#{nic}"
+  end
+  
+  def generate_siren
+    SIREN_PATTERN % rand(SIREN_MAX)
+  end
+  
+  def generate_nic(siren)
+    rest = 10 - checksum(siren) % 10
+    a = rest / 3
+    b = rest > 2 ? rest - 2 * a : rest
+    "#{a}#{b}"
+  end
+  
+  private
+    def digits(number)
+      number.to_s.split("").collect { |digit| digit.to_i }
+    end
+    
+    def sum(array)
+      array.inject(0) { |result, n| result + n }
+    end
+end

data/spec/siret_spec.rb

@@ -0,0 +1,45 @@
+require 'spec'
+require 'spec/autorun'
+
+require File.dirname(__FILE__) + '/../lib/siret'
+
+describe Siret do
+  describe ".checksum" do
+    it "should convert the given argument to a string" do
+      (arg = mock).should_receive(:to_s).and_return ""
+      Siret.checksum(arg)
+    end
+    
+    it "should compute Luhn SIRET checksum" do
+      Siret.checksum(73282932000074).should == 50
+    end
+  end
+  
+  describe ".valid?" do
+    it "should convert the given argument to a string" do
+      (arg = mock).should_receive(:to_s).and_return ""
+      Siret.valid?(arg)
+    end
+    
+    it "should return `true` given a valid SIRET number" do
+      Siret.valid?(73282932000074).should be_true
+    end
+    
+    it "should return `false` given an invalid SIRET number" do
+      Siret.valid?(0).should be_false
+      Siret.valid?("a" * 14).should be_false
+      Siret.valid?(73282932000075).should be_false
+    end
+  end
+  
+  describe ".generate" do
+    it "should return a valid SIRET number" do
+      Siret.valid?(Siret.generate).should be_true
+    end
+    
+    # If this example fails, go play lottery, or not...
+    it "should generate different (random) SIRET numbers" do
+      Siret.generate.should_not == Siret.generate
+    end
+  end
+end

metadata

@@ -0,0 +1,62 @@
+--- !ruby/object:Gem::Specification 
+name: siret
+version: !ruby/object:Gem::Version 
+  version: 0.1.0
+platform: ruby
+authors: 
+- Samuel Lebeau
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-01-25 00:00:00 +01:00
+default_executable: 
+dependencies: []
+
+description: 
+email: samuel.lebeau@gmail.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- LICENSE
+- README
+files: 
+- .gitignore
+- LICENSE
+- README
+- Rakefile
+- VERSION
+- lib/siret.rb
+- spec/siret_spec.rb
+has_rdoc: true
+homepage: http://github.com/samleb/siret
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: Generate and validate French SIRET numbers (enterprises identifier)
+test_files: 
+- spec/siret_spec.rb